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国家 科 委 、 国 家 教委 、 中 国 科 协 和 电子 工业 部 等 单位 联 
合 组 织 开 发 的 中 华 学 习 机 ， 已 由 国营 734 厂 、 深 圳 华 明 计算 
机 有 限 公司 等 10 多 个 厂家 生产 并 开始 投放 市 场 ， 这 对 我 国正 
在 大 力 普 及 和 推广 计算 机 技术 ， 无 疑 是 一 件 大 好 事 。 

中 华 学 习 机 小 巧 玲珑 ， 物 美 价 廉 ， 与 AP PELE 此 
金 开机 兼容 ， 其 功能 与 APPLE 开 相 当 ， 并 有 所 增强 。 它 
的 最 大 特点 是 有 较 强 的 汉字 处 理 能 力 ,正在 日 益 受到 全 社会 
的 关注 。 它 特别 适用 广大 中 小 学 教育 ， 将 会 进入 千家 万 户 ， 
只 要 配 上 家 用 彩色 或 黑白 电视 机 及 盒 式 录音 机 ， 六 大 青少年 
就 可 以 在 家 里 用 上 计算 机 。 

为 适应 广大 青少年 学 习 、 应 用 计算 机 的 需要 ,使 广大 初 、 
中 级 计算 机 管理 人 员 得 到 切实 的 帮助 ， 我 们 撰写 了 这 本 小 册 
子 ， 奉 献 给 广大 读者 以 及 微机 爱好 者 。 ， 

本 书 以 大 量 的 实例 ， 多 种 选 题 ， 深 入 全 面 地 介绍 了 中 华 
学 习 机 在 汉字 处 理 方面 的 应 用 。 本 书 文字 通俗 ， 讲 解 详 细 ， 
深入 浅 出 ， 循 序 渐进 。 全 书 起 点 较 低 ， 用 于 指导 自学 ， 基 本 
上 可 以 做 到 无 师 自 通 ， 而 从 应 用 的 角度 上 来 说 ， 终 点 较 高 ， 
对 于 有 一 定 基 础 的 读者 ， 是 扩大 知识 .深入 学 习 的 有 用 参考 
全 书 立 足 于 应 用 、 实 用 ， 既 有 一 定 的 原理 分 析 ， 又 有 实践 经 
验 的 总 结 ， 并 以 程序 剖析 贯穿 全 书 始终 ， 希 望 能 起 到 开阔 视 
野 、 启 迪 思 维 、 抛 砖 引 玉 的 作用 。 

本 书 资料 主要 来 自作 者 多 年 编程 和 教学 实践 ， 同 时 还 吸 
收 了 国内 外 的 先进 经 验 。 闻 中 国 述 的 方法 、 原 理 、 技 巧 、 思 


路 对 其 它 程序 设计 语言 都 有 参考 价值 ， 而 实用 程序 和 工具 软 
件 可 以 直接 付 诸 使 用 或 稍 作 修改 后 引用 。 书 中 全 部 程序 均 经 

华 学 习 机 CE C- 工 调试 通过 。 对 广大 APPLE I 用户， 
紫金 下 用 户 , 全 书 程序 均 能 使 用 ， 而 其 中 文 汉 字 部 分 ， 用 相 
应 的 硬汉 卡 或 软 汉 字 输 入 即 可 。 

在 本 书 的 编写 过 程 中 ， 南 京 大 学 教授 分 进 上 给 予 热情 支 
持 和 鼓励 ;南京 错 厂 工程 师 孙 建 隆 同 志 ， 南 京 大 学 图 书馆 馆 
员 宋 桂 兰 同志 、 为 本 书 汉 字 编 制 、 程序 输入 、 软件 调试 付出 
了 大 量 的 劳动 ， 在 此 一 并 表示 谢意 。 

。 编写 这 种 综合 性 的 、 面 向 实用 技巧 又 有 大 量 汉字 输入 的 
书籍 ， 还 是 一 次 尝试 ， 需 要 在 实践 中 不 断 加 以 完善 。 鉴 于 作 
者 水 平 有 限 ， 缺 点 和 错误 在 所 难免 ， 恳 切 希 望 同 行 专家 和 广 
大 读者 不 襄 赐 教 。 

编 者 
1988 年 4 月 25 日 于 南大 
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四 、 打 印 输 册 PR (150) 
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一 、 趣 味 程 序 


1. 猜 迷 语 


是 给 小 朋友 编制 的 一 个 游戏 程序 一 一 猜 迷 语 。 
程序 清单 如 H 1 所 示 : 


]HST 


? RENM H1 

18 PRINT ”和 薄 
26 PINT “有 时 
人 PRINT 人 


150 正名 = 中 THEN PRINT " 猜 对 了 ": 60T0 240 
178 了 INT“ 你 回答 错 了 ,是 否 再 猜 一 次 2” 

189 INPUT“ 按 Y 键 再 狂 , 按 N 键 不 铺 ";04 

29 IF 0= YY THEN 120 

218 IF G= 亿 "THN ED 

240 EN 


说 明 ，20 句 到 80 句 是 迷 语 。120 句 要 求 小 朋友 从 键盘 答 
] 


入 答案 ， 用 中 文 回答 放 在 字符 串 变量 A $ 中 ，140 句 是 迷 语 
的 正确 答案 ， 它 放 在 B $ 中 ，150 句 是 判断 ， 如 果 小 朋友 回 
答 正 确 ， 计 算 机 显示 “ 猜 对 了 ”并 转向 240 句 结束， 如 果 小 
朋友 猜 的 不 对 , 计算 机 显示 “你 回答 错 了 ， 是 否 再 猜 一 次 ?7”， 
小 朋友 继续 猜 按 Y 键 并 回 车 ， 经 200 句 判断 转向 120 句 ， 叫 
小 朋友 再 回答 ， 如 果 回 答对 了 ， 结 束 。 如 果 不 猜 ， 则 按 N 键 
并 回 车 停机 。 
下 面 是 程序 运行 的 一 个 实例 , 
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注意 ; 本 程序 运行 后 ， 必 须 在 “中 文 ” 状 态 下 回答 ， 按 
自 定 义 键 F2 处 于 拼音 状态 , 输入 汉语 拼音 YUE 和 LIANG 才 是 
正确 答案 ， 按 Y 或 N 键 则 应 用 自 定义 键 F 1, 使 系统 处 于 字母 
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2 念 数字 


下 面 这 个 程序 ， 是 一 个 “ 念 数 字 ” 的 游戏 程序 。 你 可 以 
随意 输入 一 个 整数 (在 0 到 99 之 间 ), 计算 机 就 用 汉语 拼音 印 
出 这 个 数 的 念 法 来 。 如 果 输 入 的 数 不 符合 本 题 要 求 ， 计 算 机 
会 给 出 “ 错 了 ?的 提示 ， 请 求 重 新 输入 。 

分 析 : 

(1 ) 由 于 本 题 要 求 从 键盘 输入 的 数 ， 必 须 在 0 到 99 之 间 
的 任 一 个 整数 ， 因 此 ， 程 序 中 应 有 防止 输入 出 错 的 条 件 判 断 
语句 。 

不 符合 规定 的 输入 数 是 非 整 数 ， 小 于 0 和 大 于 99 的 
数 。 

这 可 以 用 下 述 语句 处 理 : 

70 INPUT X 

80 IF INTI(X)>XTHEN PRINT“ 错 了 ”: 
GOTO 70 

82 IF X<0O THEN PRINT“ 错 了 ”: GOTO 70 

84 IF X>99 THEN PRINT“ 错 了 ”GOTO 70 

其 中 INT(X) > X， 表 明 输入 数 与 其 取 整 数值 不 等 。 

上 述 语 句 固然 正确 ， 但 显得 过 于 烦 杂 ， 事 实 上 用 逻辑 判 
断 语句 更 为 简洁 ， 如 : 

70 INPUT X 

80 IF INTI(X)i>X OR X<0 OR X>>99 
THEN PRINT“ 错 了 ”，GOTO 70 

这 样 ，80 句 一 句 就 代替 了 三 个 条 件 语句 的 判断 。 

(2) 关于 本 程序 的 输出 ， 要 考虑 三 种 情况 : 


“ 输出 是 一 位 数 

“。 输出 是 整 十 位 数 

“输出 是 两 位 数 

我 们 可 以 这 样 处 理 : 

定义 A 是 输入 数 的 十 位 数字 的 位 ， 即 A=INT(X/10); 
定义 B 是 输入 数 的 个 位 数字 的 位 ， 即 B= X 一 10 兴 A。 其 中 
X 为 输入 的 0 一 99 之 间 的 整数 。 

故 输入 数 为 一 位 数 时 ,. A = 0 ， 打 印 语句 为 A$(B): 

输入 数 为 整 十 数 时 ， 即 A 装 0,B=0, 打印 语句 为 Ab 
(Ah)2D5 AS(10) 

输入 数 为 两 位 数 时 , 即 A 装 0 且 B 半 0， 打印 语 句 为 和 有 
(A)L5 AS$(10)4D2 Ad$(B)。 

其 中 ，A$(T) 中 记 0，1，2，:………: ,9，10 的 汉语 拼 . 
音 ， 工 =0,1,2，…… ，9,10。 

(3) 汉语 拼音 的 存 贮 ， 可 以 安排 一 重 循环 ， 用 工 做 循环 
控制 变量 ， 初 值 为 0 ， 终 值 为 10， 用 字符 串 数 组 A$ ( 工 ) 读 
取 ， 程 序 如 : 

30 FOR I=0 TO Il0 

40 READ Ad$(TI) 

50 NEXT I 

160 DATA “ 放 0,1.2.……，10 对 应 的 汉语 拼音 ” 


即 0:， LING 1 YI 2: 上 上 R 
3: 9AN 4: SI 5: WU 
6: LIU 7: QI 8: BA 
9: JU 10:， SHI 


(4) 整个 程序 采用 中 文 注释 ， 这 举 使 程序 的 易 读 性 好 ， 


REM 语 句 的 注释 说 明 也 表明 了 程序 的 流程 。 


完整 的 程序 清单 见 H 2 : 


20 机 .9, 18 的 汉语 失 音 
3 F 中 1=9T0 1 

咎 RE 各 的 (]) 

5 NEXT 1 

68 REN 防止 输入 出 错 

76 INPUT “输入 @-99 间 的 整数 "六 

7 IFX=19THN EM 

8 IF IN XIRXC8DRYX 9THEN 
PRINT “ 畏 了 ": 60T0 70 

98 REM 生 输 入 数 的 十 位 数字 

9% REM 卫生 入 数 的 个 位 教 字 
196= JIN Ag) 


110B=X -多 六 
120 下 人 = 6THEN PRINT X2 的 (360T0 156: 
RENM 。 作 0 是 一 位 数字 


139 IF8=6THEN PRINT YX :5 的 (用 “的 (9) 
: 60T0 150: REN 了 B=8 是 整 十 数 

1 和 8 限 INT 呈 ” 5 朋 作 “5 的 人 9) ”的 (B) 

1 和 9 RESTORE 

150 60T0 1 

168 险 T LINGYTERSAN TD 鸭 0 JISH 


CT 


JRUN 

输入 9-99 间 的 整数 34 
34: 生 | SHI 5 
输入 -99 间 的 整数 7 
芒 : 代 SHI 册 


输入 8-99 间 的 整 族 
19:YI SHI 


输入 6-99 间 的 整数 8 
8: 玉 


输入 6-99 间 的 整数 9 
99:JIU SHI J 世 
入 -99 间 的 玫 3 


忆 -99 间 的 整 歼 123 
输入 8-99 间 的 整数 108 


几 点 说 明 ; 
"Ad$(0) 也 是 一 个 存 贮 单元 ， 所 以 DIM A $ (10)， 
实际 上 是 通知 计算 机 开 了 11 个 存 贮 单元 。 
"75 句 是 本 程序 终止 标志 ， 输 入 100 时 ， 程 序 运行 结束 。 
“经 过 120 句 和 130 名 处理 后 ，140 句 实际 上 是 A 六 0 
且 B 六 0 的 情况 , 故 不 需要 再 作 条 件 判 断 ， 而 直接 打印 输出 ， 
此 时 打印 的 是 对 应 两 位 整数 的 汉语 拼音 。 


3. 猜 数 游戏 
议 是 一 个 数学 游戏 程序 ， 计 算 机 出 一 个 数 让 小 朋友 猜 ， 


如 果 小 朋友 猜 的 数 比 计算 机 出 的 数 大 ， 计 算 机 会 提示 小 朋友 
“大 了 , 重 猜 汶 如 果 小 朋友 猜 的 数 比 计算 机 出 的 数 小 ， 计 算 机 
也 会 提示 小 朋友 “小 了 ， 重 猜 光 直到 猜 对 为 止 ， 计 算 机 告诉 
小 朋友 “您 猜 对 了 !”， 并 且 指 出 小 朋友 一 共 猜 了 多 少 次 。 本 
程序 能 提高 娃娃 们 的 判断 能 力 。 

程序 一 开始 利用 随机 数 发 生 器 产生 1 一 200 之 间 的 一 个 
随机 整数 ， 这 个 数 放 在 简单 变量 C 中 ， 但 没有 显示 出 来 ， 计 
算 机 用 中 文 提示 告诉 小 朋友 ， 有 一 个 数 已 经 产生 ， 其 值 在 1 
到 200 之 间 ， 请 小 朋友 猜 ， 小 朋友 从 键盘 输入 一 个 数 3 ， 计 
算 机 让 S 和 C 比较 ， 如 果 S > 之 C ， 说 明 小 朋友 猜 的 数 S 比 计 
算 机 出 的 数 C 大 , 从 而 计算 机 作出 “大 了 , 重 猜 ”的 判断 ， 并 
返回 25 句 ， 叫 小 朋友 重 猜 ;反之 2 广 C ， 计 算 机 经 过 比较 判 
断后 指出 “小 了 ， 重 猜 ” 的 提示 ， 也 返回 25 句 让 小 朋友 继续 
猜 ， 直 到 猜 对 为 止 。 为 了 记录 小 朋友 共 猜 了 多 少 次 ， 程 序 中 
安排 了 一 个 计数 器 B ， 即 B = B + 1。 应 该 注意 的 是 在 小 朋友 
一 次 还 没有 猜 时 ， 计 数 器 B = 0 ， 它 应 安排 在 25 句 之 前 。B 
=10, 是 计数 器 的 初始 条 件 ， 而 当 小 朋友 猜 了 一 次 后 计数 器 应 
该 加 1 。 

B = 0 这 个 初始 化 条 件 是 否 一 定 需要 呢 ? 对 于 本 程序 ， 
可 以 不 要 , 但 只 限于 中 华 学 习 机 ,或 者 是 兼容 机 APPLE -了 
以 及 紫金 - 工 等 。 因 为 这 类 机 器 在 重新 运行 程序 时 ， 所 有 变量 
均 置 0。 但 是 有 的 微机 ， 例 如 了 PC -1500 机 , 同样 这 个 程序 
B = 0 一 定 要 有 ， 和 否则 再 次 运行 程序 将 发 生计 数 错误 。 

为 了 使 本 程序 不 失 一 般 性 ， 也 可 以 不 用 B = 0 的 赋值 语 
句 ， 而 改 为 15. CLEAR ， 这 样 对 上 述 各 种 机 型 均 可 运行 而 
不 发 生 错误 。 用 CLEAR 语句 还 有 一 个 优点 ， 它 可 以 代替 
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对 多 个 变量 的 清 零 ， 从 而 使 程序 更 为 简洁 。 
程序 H 3 的 清单 和 一 个 运行 实例 : 


]UST 


9 REN 内 
1]84=1+ INT (2080*# RND (9)) 
DB8=0 


20 了 INT “这 是 一 个 狂 数 游戏 ， 请 铺 猜 看 ，” 

22 PRINT“ 枫 在 已 产生 了 一 个 1 到 280 之 间 的 随机 数 . 
25 INPUJT “9=”;9 

388=8+1 

3 fS>CTHEN PRINT "大 了 ， 重 铺 ": 60T0 25 
和 fSCCTHEN PRINT "小 了 ， 重 荐 ": 60T0 25 
"您 猜 对 了 1 您 一 共 狂 了 ;Bi" 议 " 

8 中 


戏 ， 请 鱼 猜 看 
aa 


全 ' 如 
好 到 
人 了 | 信也 


4， 拆字 游戏 


输入 一 个 五 位 整数 ， 要 求 将 该 五 位 数 一 个 一 个 拆 开 来 ， 
程序 如 何 编制 。 
例如 .输入 的 五 位 数 是 5 3 4 1 2, 要 求 将 这 五 位 数 拆 开 
来 ， 并 成 一 列 打印 输出 。 
方法 由 
从 键盘 输入 53412 ,把 它 赋 给 变量 C ， 将 该 数 除 以 1014, 变 
成 5.3412， 再 取 整 变 成 5 ， 将 5 打印 出 来 ， 这 样 就 拆 开 了 第 
一 位 数 ， 将 该 数 放 在 数组 A ( 0 ) 中 。 为 了 分 离 第 二 位 数 ， 可 
采用 下 面 赋值 语句 : 
C=C--A(0) 闪 10 人 1 
计算 结果 如 下 : 
C =53412 一 5 X101 
=53412 一 50000 
一 3412 
这 样 五 位 数 就 变 成 4 位 数 。 
同上 方法 ， 将 四 位 数 3412 除 以 103. 变 成 3.412, 再 取 整 恋 
成 4 ， 这 样 打印 出 来 的 就 是 拆 开 来 的 第 二 位 数 ， 再 利用 C = 
C--Al(1) 闪 10 人 人 3, 结果 变 成 412。 


如 此 办 理 ， 即 可 一 位 一 位 地 将 原 数 拆 开 〈 分 离开 )。 

根据 以 上 分 析 ， 可 知 乘 方 的 指数 是 逐次 减 小 的 ， 而 数组 
A 的 下 标 是 逐渐 增加 的 ， 它 们 的 间隔 〈 步 长 ) 都 是 1, 容 易 想 
到 用 循环 语句 即 可 处 理 上 述 计 算 过 程 ， 见 程序 H 4 : 


]LIST 


雹 REN 几 

26 DT 4) 

38 INPUT 

物 C=C+g.9 

5 FI=8T4 
II-=4-1 

了 HI) = JNTC7 <TI) 
名 PRINT 入]) 
9%C=C-hID* 提 ll 
19 NEXT 

118 多 


法 @ 

用 字符 夯 再 ， 将 炎 记 宇 ， 可 用 LNPUT 
A $ 来 解决 ， 然 后 用 测字 符 串 函数 LEN 〈A $ ), 其 值 就 是 
字符 训 A $ 中 的 字符 个 数 ， 将 该 值 赋 给 变量 N , 再 利用 MID 
$ 函数 ， 它 可 以 从 一 个 字符 中 中 取 中 间 若 干 个 字符 ， 例 如 
MID$ (AS$，I,1)， 就 是 从 A $ 中 的 第 工 个 字符 位 置 
起 取 A $ 中 的 一 个 字符 ， 改 变 工 的 值 ， 就 可 以 随意 任 取 A $ 
中 的 字符 。 显 然 ， 上 述 拆字 过 程 必须 由 计算 机 自动 完成 ， 而 
循环 就 是 最 好 的 方法 ， 见 程序 H 5 : 

10 


]UST 


7 RE 上 

1] INPUT 换 
20N= LEN (名 ) 
3 DT XSD) 

人 FRI=1TON 
68 了 INT 准 (T) 
人 NEXT I 

8 EM 


应 该 指出 的 是 ， 程 序 H5 更 具有 一 般 性 ,因为 它 不 仅 可 以 
处 理 数值 拆字 ， 而 且 也 可 以 不 必 改 动 任何 语句 ， 自 由 处 理 字 
符 串 中 字符 的 拆字 。 而 程序 H 4, 仅 能 处 理 数值 拆字 ， 对 于 字 
符 串 却 无 能 为 力 。 

读者 不 难 比较 ， 程 序 H5 比 程序 H4 更 为 简洁 ， 而 且 ， 由 
于 利用 了 测字 符 串 长 度 函 数 LEN (A $ ) ， 使 程序 有 了 更 多 
的 灵活 性 ， 只 要 输入 字符 串 函 数 A$，LEN (A $ ) 就 自动 
测 出 字符 个 数 ， 这 样 ， 数 组 说 明 语 句 X$ (N ) 中 的 N 以 及 特 
环 变量 的 终 值 N 就 都 有 了 确定 的 值 。 

对 于 不 只 是 分 离 一 个 字符 ，M ID $ 函数 也 具有 独 到 的 
长 处 ， 例 如 M ID 和 $ (A $，5,6) 就 可 以 从 A$ 中 的 第 5 个 
字符 位 置 起 取 A $ 中 的 6 个 字符 。 当 然 ， 对 于 这 种 分 离 ， 也 
不 一 定 非 用 MID $ 函数 不 可 ， 其 它 如 RIGHT $ 函数 和 
LEFT $ 函数 也 可 以 用 ， 前 者 取 一 个 字符 串 中 最 右边 的 若 
干 个 字符 ， 后 者 则 取 一 个 字符 串 中 最 左边 的 若干 个 字符 。 其 
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形式 分 别 为 RIGHT $(A$，I), LEFT$(A$,J)。 
5， 电脑 秘书 


电脑 秘书 程序 有 两 个 功能 : 

“平时 可 以 作为 一 个 电子 钟 。 运 行程 序 后 ， 输 入 当时 的 
时 间 : 时 (H ), 分 (M), 秒 〈9 ), 在 屏幕 的 下 部 显示 带 中 文 
的 时 间 ， 完 全 象 一 只 电子 钟 。 

. 必要 时 可 代替 秘书 部 份 工作 。 例 如 要 在 什么 时 间 发 布 
一 个 什么 信息 ,计算 机 会 准确 无 误 地 在 该 时 间 发 出 相应 信息 ， 
在 屏幕 上 显示 中 文字 幕 。 

程序 编制 要 点 : 

(1) 20 句 ，50 名 以 及 200-- 290 名 组 成 一 个 时 钟 程序 ，S 
=S+1，M=M+1，H=H+1 分 别 为 计 秒 、 计 分 、 计 
时 ， 秒 满 60， 分 满 60, 时 满 24 分 别 由 条 件 语句 判断 是 否 进位 。 
当 从 键盘 上 输入 一 个 时 间 后 〈 按 时 、 分 、 秒 次 序 ) ,屏幕 下 部 
即 显示 时 间 。 

{2) 130 句 中 放 了 在 什么 时 间 发 布 第 几 条 信息 的 数据 , 次 
序 是 时 、 分 、 秒 、 代 号 ， 如 要 在 8 时 0 分 0 秒 发 布 第 一 个 信 
息 ， 则 在 DATA 语句 中 按 8，0，0，1 次 序 存 放 。 而 40 
句 为 读 语 句 ， 也 按时 、 分 、 秒 、 代 号 读 ， 变 量 为 H1,M 1 ， 
S 1,X， 用 80 句 判断 ， 如 果 时 钟 计 时 到 某 一 时 刻 ， 与 要 发 布 
信息 的 时 间 完 全 相等 时 ， 由 X 值 决定 发 布什 么 样 的 信息 。 信 
息 在 屏幕 上 显示 一 段 时 间 后 再 返回 计时 状态 。 

(3) 本 程序 是 电脑 秘书 的 原理 程序 ，130 句 中 数据 安排 是 
一 种 示意 性 说 明 ， 实 际 工作 时 应 按 实 时 情况 安排 数据 ， 例 如 
上 午 12 点 下 班 ， 在 DATA 语句 中 应 为 12，0，0，4， 这 
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样 ， 当 时 钟 到 12 点 整 时 ， 会 在 屏幕 上 显示 “到 点 下 班 了 ”的 
信息 。 至 于 第 四 项 X 值 ， 亦 即 按 实际 情况 处 理 ， 如 有 5 条 信 
息 需要 发 布 ， 则 X = 5 。 

(4) 本 程序 全 部 信息 是 在 屏幕 上 显示 ,未 安排 打印 输出 。 
另外 也 可 以 安排 报警 语句 ， 使 发 布 信息 前 ， 晓 叭 发 声 几 下 
或 在 发 布 信息 前 ， 先 唱 -一 段 歌曲 ， 以 示 醒 目 ,提请 大 家 注意 ; 
也 可 以 用 程序 控制 游戏 接口 开关 ， 自 动 打开 录音 机 等 等 。 这 
些 工作 留 给 有 兴趣 的 读者 自行 完成 。 

程序 清单 见 H 6 : 


]LT 


5 REH6 
18 REN 电脑 入 书 

4 PRINT (HR (1) 

2 TNPUT " 答 入 时 ,分 ,种 :向 避 $ 

4 RE 各 HH 人 SB 

5 604 20 

8 下 Hz=HEpNDN=NANDS=9SITHEN 1 
和 60T0 5 

198 0 X 60SUB 390,490,569, 120 

1 60T0 4 

120 WThB 3: HT 他 2: PRINT "到 贞 下 次 了 ": 
F 名 工 = 1T0 4580: NEXT IT: EN 

3 NT 60 和 860929103 8 0404 
28 F 限 K = 1T0 750: NEXTK 


2 的 9=3+1 
210 开 9= 的 TEN 258 
220 于 人 = 6 THEN 208 
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238 IFH=24THN 270 

248 60T0 28 

250S= 6= 作 + 1 60T0 228 

269 = :=H+1: 60T0 239 

278H=8 

288 HOIE : PRINT : PRINT : PRINT 

265 W 名 9: HTB 13: PRINT Hi 时 "3 分 "Si 秒 " 
298 RETURN 

39 W 角 3: HT 凶 14: PRINT "通知 ~ 

318 WTfB 5: HTAB 2: PRINT “今天 上 午 10 点 整 召 开 全 
公司 大 会 ” 


315 FRI=1T01090: NT TI 
320 RETURNN 
(40 HT 名 2: PRINT “今天 下 午 2 点 经 理 去 机 


415 F 工 = 1T0 150%: NEXT TI 
420 RETURN 
。 3: HTRB 2: PRINT “今天 下 午 6 点 在 金陵 


岂 举 行 
5 地 F 有 了 =1T01900: NEXT 了 
520 RETURN 


6. 电脑 问 路 


在 大 中 城市 的 几 个 中 心 阐 区 ， 设 置 几 个 “电脑 问 路 ” 亭 ， 
对 于 广大 旅客 会 带 来 不 少 方便 ， 他 们 通过 计算 机 ， 直 接 询问 
城市 的 交通 情况 。 

下 面 编制 的 一 个 电脑 问 路 程序 ， 是 以 南京 市 主要 交通 路 
线 为 例 ， 说 明 电 脑 问 路 的 原理 。 为 简单 起 见 ， 汽 车 或 电车 路 


14 


线 仅 安 排 了 起 点 站 和 终点 站 。 

程序 的 运行 方法 十 分 简单 ， 融 入 01，02，……… ，31,33， 
34 等 任何 一 个 数字 代码 ， 屏 幕 上 立即 显示 该 代码 对 应 的 行车 
路 线 。 例 如 痪 入 11 以 ， 立 即 显示 ， 

关 11 路 草场 门 一 樱 驼 村 关 

它 表 示 乘 11 路 汽车 ， 可 以 从 草场 门 到 樱 驼 村 。 

如 果 将 11 路 途经 站 名 全 部 填 入 270 句 的 DATA 语句 中 ， 
则 可 以 了 解 到 整个 11 路 汽车 各 站 情况 。 

电脑 问 路 程序 〈 见 再 7 ) 和 运行 结果 : 


]LUST 


1 REN H 
2 REM 电脑 问 路 

9 家 归 关 道 
26 JJ 的 (6 
0 
加 RED 的 人) 

件 PRINT 名 ( 芒 六 “ 
50 NEXT 了 

5 队 册 


5 正 孙 = "THEN 16 
5Nz=l 


ob F[ 仆 J=1T013 

fN=N+l 

妈 Ff 妥 TI=1T LEN (名 (J)) - LEN (中 )+1 
9 还 下 5 》 队 顺 ( 角 (J)j5I LEN 《下 )》THEN 12 
8 


zaE 。 S 3 3 亡 。 下 
如 扯 故 才 记 | 王 攻 手语 风 贞 间 开 


总 
志和 党 各 志 因 治 健 二 二 治 赤 基尼 


过 和 和 冯 和 过 过 到 和 天 天 天 和 过 


于 三 电 过 有 科 并 六 忆 里 过 沪 三 及 
人 wish 鸭 二 思 SY2 CCY? cv> 


1 
bo: 1 
栓 ] 路 南京 车 站 一 建 康 路 + 


0 
扩 No: 2 
和 2 路 雨花台 一 岗子 村 # 


入 
的 No: 3 
攀 3 路 江苏 路 一 江苏 路 # 


:0 

工人 医院 一 中 山 站 
0 No: 7 

4 路 新 街 口 一 中 山 隘 * 


?1 
1 :8 
站 1 路 草场 门 一 机 吏 村 


?113 

113 No: 9 

#113 路 中 央 门 一 水 西门 
?416 

16 No: 1 

6 路 雨花台 一 南京 西 站 * 


?10 


?1 
1 io; 8 
村 ] 路 草场 门 一 各 更 村 


231 
31 No: 1f 
要 | 多 中 山 科 类 一 建 康 中。 


2?33 
33 No: 12 
要 3 路 雨花台 一 南京 西 站 # 


说 明 ， 

程序 H7 编 制 中 , 应 特别 注意 D AT A 语 句 中 的 代码 ， 例 
如 ， 南 京 市 有 13 路 公共 汽车 ， 但 没有 113 路 ,如 果 安 排 13 路 ， 
则 本 程序 查找 不 出 对 应 的 行车 路 线 ; 又 如 南京 市 有 1,2，3 ， 
4,……9 路 车 ， 但 没有 01，02，03，04，…… ，09 路 车 ， 但 
若 安排 3,2,6,9, 等 ， 则 不 是 查 错 ， 就 是 找 不 到 。 

原因 是 本 程序 在 查找 中 ， 不 仅 查 找 代 码 ， 而 且 查 找 中 文 
汉字 ， 而 有 些 中 文 汉 字 的 代码 〈 它 们 是 用 机 器 语言 编制 的 )， 
可 能 和 代码 一 致 ， 结 果 按 代码 查找 不 出 来 。 

所 以 用 本 程序 编制 电脑 问 路 程序 时 ， 一 定 要 反复 调试 ， 
以 确定 代码 ， 和 否则 面 角 二 非 ， 引 错 了 路 。 

如 将 上 述 程序 中 110 句 后 面 的 GOTO135 删 去 ， 则 电脑 
问题 更 加 灵活 。 例 如 ， 问 到 南京 西 站 如 何 走 ， 则 输入 南京 西 
站 四 个 字 后 ， 电 脑 指 示 既 可 以 坐 16 路 汽车 ， 也 可 以 乘 33 路 电 
车 。 


山 :6 
煌 6 路 工人 医院 一 中 山 站 


中 山 N: ?7 

槐 9 路 新 街 口 一 中 山陵 
中 山 wo: 圭 

中 山 码 头 一 建 康 路 
村 4 路 宙 了 天 - 新 街 品 
2 和 和 D- 中 山陵 
434 路 和 大- 新 街 品 


7. 电脑 侦探 


计算 机 具有 逻辑 判断 和 推理 的 能 力 ， 因 而 也 就 具备 了 一 
定 的 逻辑 思维 能 力 ， 正 因为 如 此 ， 人 们 常常 称 计算 机 叫 “ 电 
脑 ”。 


20 


计算 机 可 以 看 病 ， 预 报 天 气 ， 也 可 以 破案 ， 下 面 我 们 通 
过 两 个 实例 ， 看 看 电脑 的 本 领 。 

例 1，A、B、C 三 人 在 一 起 , A 指 责 B 正 在 撒谎 ，B 指 
责 C 正 在 撒谎 ， 而 C 指 责 A 和 B 都 在 撤 谎 。 试 编制 一 个 B A- 
SIC 程 序 ， 帮 助 你 做 出 正确 的 判断 ， 究 竟 谁 在 撤 谎 ? 

分 析 ， 

“。 对 这 个 具体 问题 ， 因 为 只 有 撒谎 和 不 撒谎 两 种 可 能 ， 
所 以 可 以 作 一 个 轴 辑 上 的 假定 : 撒谎 叫 1, 说 实话 叫 0 。 

“。 对 每 一 个 人 来 说 ， 都 有 撒谎 和 不 撤 谎 两 种 可 能 ， 因 此 
三 个 人 “三 个 变量 ), 就 有 8 种 不 同 的 情况 ， 即 : 


一 一 一 .一 < < < < 
一 一 cm < 一 一 < 性 
ED 一 《SSD 一 = CSD 一 ~ CSD 


"本题 中 要 求 找 出 撒谎 者 是 谁 ， 即 A、B、C 中 谁 是 
作 下 

根据 题 意 我 们 来 逐一 分 析 : 

避 A 指 责 B 正在 撤 谎 

这 有 两 种 可 能 ， 若 A 说 的 真 话 ， 那 么 B 是 说 谎 者 ; 若 A 
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说 的 假 话 ， 则 B 说 的 是 真 话 。 即 : 

若 A=0, 则 B=1; 

若 A=l, 则 B= 0 

上 述 情 况 可 以 用 A BS (A--B) =1 来 综合 。 显 然 ， 
A=B=1 (都 说 谎 ) 和 A= B=0 (都 说 实话 ), 不 符合 题 
意 雪 求 ， 即 ABS (A-- B) = 0 应 该 排除 。 

@ B 指 责 C 正 在 撒谎 

和 上 面 分 析 一 样 ,< 既然 ”B 指 责 C 正 在 撒谎 风 那 么 若 B 
= 0 (说 实话 ), 则 C = 1( 撤 谎 ); 若 B=1, 则 C=0, 即 ABsS 
(B-C)=1。 而 ABS (B--C) =0, 不 符合 题 意 。 

@@ C 指 责 A 和 B 正 在 撒谎 

同 理 : 这 句 话 可 以 写成 ABS (C 一 A 关 了 B)=1。 而 ABs 
(B-C)=0, 应 该 舍 去 。 

现在 ， 我 们 可 以 安排 写 程序 了 。 

A、B、C 都 有 撒谎 〈 记 作 1 ) 或 说 实话 〈 记 为 0 ) 两 
种 可 能 ， 共 有 23= 8 种 情况 ， 因 此 可 以 安排 三 重 循环 , 取 A、 
B 、C 作 为 循环 变量 ， 分 别 对 应 各 人 说 谎 与 否 的 两 种 情况 ， 
即 : 


1 FLR 人 ET01 
20f 中 BTD1 
3 [中 CT01 
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1 的 NEXT 
]18 MENT B 
120 EXT 有 


上 面 三 个 条 件 ， 要 拿 来 逐一 验证 8 种 情况 ， 只 要 有 一 条 
不 符 ， 就 应 排除 ， 即 在 循环 体 中 安排 下 述 三 句 : 


]LST 40,00 


由 下 向 St 博 -及 =6THEN 1 的 
2 了 f 币 人 -0=0THEN 的 
的 IF 般 S(C-h*#B)=6THEN 1 的 


为 什么 要 安排 上 述 三 句 呢 ? 

我 们 可 以 拿 第 一 个 条 件 来 分 析 : 

条 件 1 是 若 A=0, 则 B= 1;， 若 B=0, 则 A=1l。 

我 们 用 “ 反 证 法 ” 若 不 满足 上 述 条 件 ， 就 是 AB S 
(A 一 B)=0 

同时 写成 AB S(A-- B)=0 还 有 两 层 意思 ， 因 若 A = 
1，B=1 和 A=0，B= 0， 这 两 种 情况 ， 都 不 是 题 意 要 
求 ， 所 以 写成 ABS (A-- B)=0, 就 包括 了 ABS(1-1) 
=ABS(0)=0 和 ABS(0-0)=ABS(0)= 0 这 两 种 情 
况 。 既 然 不 满足 ， 就 应 排除 ， 所 以 用 [IF …… 工 HEN .…… 语 
句 ， 而 THEN 后面 的 行 号 显然 应 该 找到 100。 

至 于 50 句 ，60 句 ， 同 上 分 析 ， 不 再 多 述 。 

排除 了 所 有 不 符合 条 件 〈 题 意 ) 的 各 种 可 能 ， 剩 下 来 的 
就 是 有 可 能 说 谎 的 人 ， 再 进一步 判断 ， 即 : 
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]LIST 70, 9 


THEN 了 RRINT 人 
[KEN 限 INT 了 
THEN 了 恨 IN C 


人 


完整 的 程序 见 芋 8: 


画 务 
到 
至 
于 


126 NEXT h 


RUN 

和 A 

C 

由 此 可 知 ， 真 正 说 谎 的 是 A 和 C， 而 了 B 是 老实 人 。 
程序 H8 显 得 比较 宛 长 , 再 改进 一 下 则 简短 多 了 , 见 程序 也 9: 


]LIST 


9 Ri 几 
]8 fRh=8T01FRB=8T01FRC=6TD 


] 

公 于 hh-B) = hs-C=bR 
船 信 -h#B)》=6THEN 6 

3 和 下 h=1THEN 限 INT 

由 8=1THEN 了 INT 3 

0 IfFC=1THEN PRINT 


68 NEXT C: NEXT B: NEXT h 

读 了 以 上 程序 ， 有 人 不 禁 要 问 ， 这 不 是 人 编程 序 吗 ? 那 
里 是 计算 机 破案 呢 ? 

对 于 这 个 问题 ， 要 弄 清 人 与 机 器 之 间 的 关系 。 

人 不 编程 序 一 一 机 器 作 不 出 判断 ; 

机 器 根据 人 编 的 程序 一 才能 作出 判断 。 

这 里 人 是 第 一 位 的 ， 机 器 是 第 二 位 的 。 人 仅 根据 题 意 要 
求 ， 编 写 了 程序 ， 但 未 作 判 断 。 人 要 作出 判断 ， 必 需 花 费 很 
多 时 间 和 精力 ， 要 考虑 各 种 可 能 情况 ， 又 要 排除 不 合理 的 因 
素 ， 既 要 联 贯 思索 ， 又 要 科学 推理 。 而 当 实际 问题 比较 复杂 
时 ， 人 的 智力 不 可 能 一 下 子 涉及 到 问题 的 全 部 细节 ， 特 别 是 
倘 有 多 种 复杂 的 因素 ， 多 个 相互 制约 的 关系 时 ， 常 常 难于 做 
出 正确 的 判断 。 所 以 遇 到 这 类 情况 ， 最 好 的 办 法 是 求助 于 计 
算 机 帮忙 。 编 一 个 程序 ， 让 计算 机 去 做 大 量 的 分 析 、 比 较 、 
判断 的 工作 。 最 后 所 得 结果 正确 与 否 ， 还 取 绝 于 人 编 的 程 
序 。 

下 面 一 个 例题 ， 情 况 就 复杂 多 了 ， 仅 靠 人 来 处 理 ， 往 往 
一 下 子 得 不 到 结果 。 
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例 2, 某 侦察 队长 接 到 一 项 紧急 任务 ， 要 求 在 最 短 的 时 间 
内 侦破 一 个 案子 。 已 知 和 案件 有 关 的 是 代号 为 A、B 、C、 
D、 忆 和 F 共 6 人 ， 掌 握 的 线索 如 下 ; 

(1) A、B 两 人 中 至 少 有 一 人 参与 作案 ; 

(2) A、D 两 人 不 是 同 案犯 

(3) A、 下 、F 三 人 中 有 二 人 作案 ; 

(4) B 、C 两 人 或 者 同时 参与 作案 ， 或 者 都 与 本 案 无 


(5) C、D 中 有 一 人 也 仅 有 一 人 系 案犯 

(6) 若 D 未 作案 ， 则 屯 也 不 是 案犯 。 

分 析 : 

本 例 案情 比较 复杂 ， 对 每 个 嫌疑 分 子 ， 都 有 作案 〈 定 为 
1 ) 和 不 作案 〈 定 为 0 ) 两 种 可 能 ， 因 此 ， 就 有 2 5= 64 种 情 
况 ， 需 要 分 析 、 判 断 。 显 然 ， 这 64 种 情况 ， 要 人 来 逐一 考虑 
是 太 复 杂 了 ， 可 以 由 计算 机 来 处 理 ， 例 如 ， 安 排 六 重 循环 ， 
初 值 为 0 终 值 为 1 ， 分 别 区 分 不 作案 和 作案 的 各 种 可 能 。 

。 对 线索 (1),A、B 二 人 至 少 有 一 人 参与 作案 ， 用 逻辑 
术语 来 说 就 是 : 

或 者 A 作 案 ，B 未 作案 ， 即 A=1l,B= 0 

或 者 B 作 案 ，A 未 作案 ， 即 B=1,A= 0:; 

或 者 A、B 均 作案 ， 即 A=1, B=1。 

上 面 三 种 情况 ， 用 逻辑 表达 式 表 示 ， 即 : 

A OR B=1l 

显然 A OOR  B=0, 不 符合 题 意 要 求 。 

用 程序 来 描述 就 是 : 

10 FOR A=0 TO 1 
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20 FOR B=0 TO 1 
30 IF AOR B=0 THEN 50 
40 PRINT A; “和 B 
50 NEXT B 
60 NEXT A 
程序 中 30 句 ， 也 可 以 这 样 写 : 
30 IF\、A+B=0 THEN 50 
或 者 ; 
30 IF SGN(A+B)=0 THEN 50 
。 对 线索 ( 2 )，A、D 二 人 不 可 能 同时 作案 ， 换 名 话说 
A AND D=! 成 立 ， 是 不 符合 题 意 的 。 
这 个 判断 也 可 以 写成 ， 
IF AXD=1 
或 者 ; 
IF A+D= 2 
。 对 线索 (3)，A、 下 、F 三 人 中 有 二 人 作案 ， 即 
A+ 正 +F> 2 成 立 ， 是 不 符合 题 意 的 。 
这 个 判断 也 可 以 写成 : 
IF SGN (A 关 下 +A 关 下 二 EX 关 F) =0 
。 对 线索 ( 4 )，B 、C 两 人 或 者 同时 作案 ， 或 者 均 未 作 
可 以 写成 
IF (B+C)/2=1NT(CB+C)/2) 
而 IF(B+C)/2>1INT((B+C) /2) 是 不 符合 


题 意 的 。 


同样 ， 也 可 以 写成 : 
IF ABS(B-C)= 1， 不 满足 题 意 。 
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。 对 线索 (5 )，C、D 中 有 且 仅 有 一 人 作案 ， 反 过 来 
说 ， 就 是 ， IF C+ D< >1, 不 符合 题 意 ， 也 可 以 写 成 
IF ABS(C-D)=0， 不 满足 条 件 。 

。 对 线索 ( 6 )， 如 果 D 未 作案 ， 则 正 也 未 作案 ， 可 以 写 
成 D= 1， 匡 = 1 是 不 符合 条 件 的 。 

总 之 ， 我 们 可 以 用 逻辑 表达 式 ， 或 者 数学 表达 式 来 描述 
上 述 各 种 线索 ， 而 用 反 证 的 方法 逐一 排除 不 满足 题 意 要 求 的 
条 件 ， 用 循环 的 方法 逐一 投 试 ， 即 可 迅速 解 题 抓 住 作案 者 。 

今 给 出 两 种 破案 程序 H10 和 H11， 解 题 思路 一 样 ， 但 条 
件 语 句 写 法 不 同 。 

最 后 结果 都 是 代号 为 A、B、C、F 四 人 是 案犯 。 

显然 ， 本 题 如 果 不 编程 序 ， 而 由 人 来 判断 ， 则 是 比较 困 
难 的 。 因 此 ， 在 以 后 的 编程 中 ， 我 们 可 以 根据 题目 的 要 求 ， 
在 有 可 能 利用 计算 机 协助 我 们 解 题 时 ， 尽 可 能 巧 用 计算 机 ， 
这 会 使 你 减少 许多 计算 工作 ， 以 及 对 一 些 复杂 问题 的 判断 、 
分 析 。 


C=8T01l 
(Bt+6)72( IT(B+O7 2 THN 


6 F[ 限 D=0T01 
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| 

(>2THEN 19 
1 限 JNT 和 CC 和 
和 ”于 :下 

1] 的 60T0 210 

190 NEXNTF 

108 NEXTE 

116 NEXT D 

1]8 NENT 

19% NEXTB 

209 NEXNT 

210 END 


JR 
全 1 BC:1 :0 E:0 F:1 


程序 H11 


]UIST 


2 REH HI 


5 RENM 电脑 侦探 
1 F 限 h=0T01 
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20 FRB=8T01 

3 下 和 (人 +B)=0THEN19 
和 [了 0=80T01 

史 下 仙人 -0=1THEN18 
% FIRDI=6T01l 

了 下角 #D=1TTHN 170 
各- 开 和 (人 (-D)=0THN178 
和 f 限 E=8T01 

的 ID=1THN 12 

1 IE=1THN 16 

120 F 限 F=0T01l 

1 和 IF SN 作 *E+h*yF+E*F)=8THEN 1 


站 
二 了 IMT 币 六 0D3 和 i 下 
区 60T0 210 


]RN 
旬 了 0DE 汪 
1b001 


8， 电脑 医生 


计算 机 可 以 看 病 ， 这 已 经 为 越 来 越 多 的 人 知道 ， 但 是 ， 
它 为 什么 会 代替 医生 诊断 ， 却 不 是 多 数 人 所 了 解 的 。 计 算 机 诊 
断 属于 人 工 智能 中 的 专家 系统 (EXPERT SYSTEM) 
领域 ， 而 专家 系统 已 有 很 广泛 而 又 很 重要 的 应 用 ， 它 几乎 遍 
及 人 类 生活 的 各 个 方面 。 

我 们 这 里 介绍 的 是 一 个 比较 简单 的 供 娱乐 和 示 教 用 的 电 
脑 医生 诊断 程序 ， 它 可 以 根据 病人 的 不 同 “ 症 状 , 诊断 出 16 
种 疾病 ， 并 开 出 “处 方 >. 所 以 要 举 这 样 一 个 例子 ， 是 因为 它 
简单 明了 , 易 为 人 们 所 接受 ， 并 且 是 用 BA S IC 语言 编写 ， 
这 样 ， 就 会 使 更 多 的 人 了 解 专家 系统 的 基本 工作 原理 。 

“天 有 不 测 风云 , 人 有 旦 夕 祝福, 计算 机 能 预报 天 气 ， 也 
能 给 病人 看 病 ， 开 药方 ， 这 不 是 太 “ 神 ”了 吗 ? 这 到 底 是 怎 

一 回 事 呢 ? 人 们 都 想 了 解 这 个 问题 。 

现在 ， 我 们 先 列 出 电脑 医生 诊断 程序 可 12， 然 后 逐 段 逐 

段 地 剖析 。 


]L5T 


5 REN H2 
18 JW 全 94)7B(15》)T(15,2) 
28 PRINT “同志 ,你 好 ! 我 是 电脑 医生 ,您 时 十 么 名 字 人 


3 JWPUT "输入 字 ”; 
机 人 多 9- 


6 和/ 人 可 直列 和 闪 放 的 
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号 得 ,例如 1245)2” 

76 PRINT “4. 头 痛 2. 臣 喇 
名 PRINT “3. 腊 痛 。 4. 发 鹤 ” 
物 PRINT 邱 . 亚 心 6. 注 肚 " 
199 PRINT 7. 艺 食 8. 队 此 " 
1 PRINT "9. 艺 思 " 

120 INPUT “输入 症状 号 码 "5 
1250=0+0.8 


] 
NtCA1tA^ID 
(ID)* 地 ^I 


248 NEXT 1 
250 (5 = 仿 8) * 19888 + 和 1) * 1090 + 人 2) * 100 
+ 衣 3) 本 雹 + 雇 个 ) 

269 RESTORE 

278 F 限 TI-=8T 人 5 

288 丰 色 KITT 1 TCD2) 

298 ENT 1 

368 [中 TI-9T05 

3 下 名 (CC-BI) >》6.91THEN 380 

326 下 TICTD TD THEN 388 

339 下 T2 >TTD2) THEN 389 

3 F 限 J=8T0T: RE 色相 咒 : NEXT 了 

356 PRINT 各;" 周 志 ,您 得 了 "5 节 


32 


368 PRINT ” 处 
316 了 PRINT 否 : END 


389 NENT 1 

398 PRINT “很 殷 款 ， 这 病 我 看 不 了 ,请 另 请 医生 看 ” 
589 险 人 2 37，38， 1 和 ,38，93，145,38 493124, 38,43 
，]245，38， 43，24，37, 3，3636.5) 37,5789， 36.5,49, 358 
136.5， 特 ，189, 39, 43, 369，38, 90， 1 36.5,38,7)36.5,37 
)236.5,37,6,36.5)37， 1 

5 四 革 条 


本 

至 有 

本 

本 

站 

水 洒 

e 

3 
蓉 申 kt 由 
寻 : 汪 FF 


二 ] 梁 
< < 
盏 号 
> 工 > 
SS 

一 : 
巡 豆 
3 
法 对: 
~ 

袜 世 

- 记 

字 世 

~ 


避 思 

马 至 

二 > 
HE 


受 台 
只 号 
> 工 > 
5 
车 芹 
= 
FF 
水 有 
刁 -SF 
要 于 娄 


本 程序 共 分 六 段 编写 ， 概 略 说 明 如 下 : 
(1) 10 一 120 句 ， 用 PRINT 语句 提示 中 文 信息 , 电脑 
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医生 询问 病人 姓名 ， 体 温和 症状 ， 病 人 依次 作出 相应 的 回 
答 


己 2 


(2) 125 一 170 句 :计算 机 将 症状 组 合 的 号 码 进行 拆字 处 
理 ， 如 “2145” 表 示 患 者 有 头痛 、 咳 嗽 、 发 冷 、 恶 心 等 四 种 
症状 ， 将 号 码 拆 开 后 分 别 存 入 A(0) 一 A(4) 中 , 结果 
A(0) 一 A(4) 中 分 别 是 4 02，% 22， 6 127， 42，《 52。 

(3) 180 一 250 句 : 将 数组 元 素 A( 0 ) 一 A( 4 ) 中 的 症状 
代码 按 其 数值 大 小 进行 排序 ， 并 重新 存 贮 在 A (0) 一 A (4)， 
此 时 它们 的 值 分 别 是 6 0 2， 6 主力 6 22， 6 42， 4 5 2 经 
250 句 处 理 合并 , 赋 给 变量 C, 此 时 C 中 的 值 为 “1245”, 它 和 
“2145” 表 示 同 样 的 症状 组 合 。 

(4) 260 一 390 句 :根据 病人 体温 和 症状 进行 病情 诊断 ， 
然后 给 出 诊断 结果 (病名 )， 并 开 出 处 方 。 数 组 B， 个 中 分 别 
存放 症状 组 合 和 每 种 症状 对 应 的 体温 上 、 下 限 ， 只 有 输入 的 
症状 组 合 C 和 体温 T1 与 B， 个 中 的 元 素 相 等 时 ， 才 能 看 病 ， 
否则 则 认为 该 病 无 法 诊断 。 

(5) 500 语 句 中 放 的 是 症状 组 合 以 及 每 种 症状 组 合 所 对 
应 的 体温 下 限 和 上 限 。 注 意 症 状 组 合 的 代码 是 由 小 到 大 排列 
的 。 症 状 组 合 ， 体 温 下 限 和 体温 上 限 也 是 按 次 序 顺序 存放 
的 。 

(6) 510 一 660 句 : 每 一 个 DATA 语 句 放 一 种 病名 和 对 
应 该 病 的 诊断 处 方 ， 中 间 只 用 一 个 “, ”号 隔 开 ， 括 弧 中 不 能 

“， "号 。 病 名 和 处 方 顺序 存放 ， 病 名 在 前 ， 处 方 在 后 。 
变量 设置 : 

N $ 一 一 患者 姓名 ， 键盘 输入 中 文 或 英文 。 

T 1 一 一 患者 体温 ， 到 小 数 第 一 位 。 
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C 一 症状， 最 多 四 位 数 ， 可 以 不 按 顺 序 。 
TI， 丁 一 一 循环 控制 变量 。 

A (TI ) 一 一 存放 症状 组 合 C 拆 开 的 数码 。 
B( IT) 一 一 存放 症状 组 合 。 

下 (1T，J) 一 一 存放 体温 值 ，T〈I，1) 存 体温 下 
个 (T,2) 存 体温 上 限 。 

I 4 一 一 病名 。 

D $ 一 一 处 方 。 

主要 程序 段 分 析 : 

(1) 拆字 

程序 见 H12-1: 

]HST 160, 178 

19% RHI2-1 

110 DIM 入 4) 


128 INPUT “输入 症状 号 码 "5 
15(C=(C+8.8 
=0T014 


T 

IMT CA 地 ^ 了 
IC6=0- 人 ID)#^I 
116 NEXT 


浊 


运行 上 述 程序 后 在 A( 0 ) 一 A(4) 中 ,分 别 存放 了 “57”， 
6 3 6 本 2 6 2 人 2 五 个 字 码 。 

为 什么 输入 的 一 组 代码 要 一 个 一 个 地 拆 开 来 呢 ? 主要 是 
为 排序 作 准 备 。 例 如 53412 这 五 个 数码 ,它们 不 是 按 顺 序 排列 
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的 ， 为 此 ， 首 先 将 它们 一 个 字符 一 个 字符 地 拆 开 来 ， 然 后 才 
可 以 用 排序 的 方法 将 它们 按 1,2,3,4, 5 顺序 排列 。 

(2) 排序 

对 一 组 数据 或 一 组 字符 串 ， 按 从 大 到 小 或 从 小 到 大 的 次 
序 进行 排列 ， 称 为 排序 ( SOR 工 )， 又 称 分 类 。 它 是 数据 处 
理 中 最 基本 的 工作 之 一 。 

排序 的 方法 很 多 ， 其 中 流程 比较 简单 ， 容 易 为 初学 者 接 
受 的 是 枚 举 分 类 法 ， 它 的 基本 思想 是 逐一 比较 。 

例如 ， 有 N 个 数 ， 要 求 从 小 到 大 顺序 排列 。 首 先 把 N 个 
数 放 在 数组 A(N ) 中 ， 让 A( TI 壮 后 面 的 一 个 存 贮 单元 内 容 
A( 丁 ) 相 比较 ; 

如 果 A( IT) 久 A( 丁 )， 两 者 不 交换 ， 再 让 A( 本 + 1 ) 
A(CTI) 比 较 ; 

如 果 A( 工 )>A( 丁 )， 两 者 交换 ， 方 法 是 设置 一 个 中 间 
变量 X， 用 X=A(I): A(T)=A(J):， A(J)=X 来 实 
现 交 换 ， 交 换 后 再 让 A(J+ 1 呈 A( 工 ) 比 较 ; 

注意 : A( 工 ) 与 A( 丁 ) 比 ,实际 上 是 A( TI) 要 与 IN- 1) 
个 数 比 ,这 是 第 一 轮 的 情况 。 在 第 一 轮 比较 中 A( IT)= A(1)， 
比较 的 结果 就 是 求 出 N 个 数 中 较 小 的 一 个 数 ， 并 把 它 存在 
A (1) 中 。 

以 后 的 工作 ， 就 是 对 剩 下 来 的 CN- 1) 个 数 ， 进 行 同 
样 的 工作 ， 每 次 都 把 剩 下 来 的 数 中 最 小 的 存 入 A( 工 ) 中 ， 对 
第 二 轮 就 是 存 入 A ( 2 ) 中 。 一 共 进 行 CN- 1) 轮 比较 ， 就 
可 以 把 N 个 数 按 小 到 大 顺序 排列 。 

程序 如 H12-2 所 示 : 
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]LIST176248 


反 0 RE H12-2 

18 F 吸 1I=6T63 

1% F 吸 J=I+1T04 

2 的 IF AD AIJ THEN 238 
220% = 信 D):MI) = 入 JJ) = 
230 NEXT 

240 EX 


程序 H12-2 是 针对 本 题 而 设置 的 ， 一 共 是 5 个 数 ， 运 行 
钓 最 后 结果 ， 是 将 症状 代码 按 其 数值 大 小 放 在 A(0) 一 A(4) 
中 。 

(3) 合 拼 

这 项 工作 主要 由 250 句 来 完成 ， 事 实 上 ，A( 0 ) 中 存放 
的 是 万 位 数 的 位 ，A( 0 )x 10000 才 是 万 位 数 , A( 1 ) 中 存放 
的 是 千 位 数 的 位 , A( 1 )x 1000 才 是 千 位 数 ， 其 余 依次 类 推 。 

经 250 句 处 理 后， 变量 C 中 的 值 就 是 已 经 排 好 顺序 的 病 
症 组 合 的 数码 。 

例如 ,120 句 输入 症状 号 码 为 1432， 经 125 一 170 句 程序 段 
处 理 后 存 贮 情况 为 ， A(0 )=0，A(1)=1，Al(2)=4， 
A(3)=3，A(4)= 2， 经 120 一 240 句 程序 段 处 理 后 存 贮 
情况 为 A(0)=0，A(1)=1，A(2)=2，Al(3)= 
3,A(4)=4, 最 后 经 250 句 处 理 后 ，C=1234。 

现在 ， 可 以 解释 为 什么 本 程序 要 经 过 拆字 、 排 序 、 合 们 
的 处 理 , 目的 是 为 了 与 500 句 中 症状 组 合 相 比较 和 检索 ， 因 为 
500 句 中 的 症状 组 合 号 码 是 按 序 排列 的 。 
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综合 所 述 ， 拆 字 为 了 排序 ， 排 序 为 了 合并 ， 


合并 为 了 检 


索 ， 以 上 三 段 反映 了 本 程序 的 主要 流程 ， 实 际 上 也 就 是 设计 


(4) 诊断 和 开 处 方 
程序 由 260 一 390 句 组 成 。 
这 是 整个 程序 的 核心 


为 便于 分 析 ， 现 列 出 260 一 390 程 序 段 ， 见 程序 H12-3: 


]1T250,380 


250 RE H12-3 

206 了 STORE 

210 F 中 II=8T0 多 9 

288 RE 如 BITD 1 TD2) 
200 NEXT 
306 FIRI=8 
3 地 F 秀 S(C- 
320 TFTICTD1TD THEN 38 

338 于 T2 TD2 THEN 388 

34 F 腿 J=8T0I: 了 各 了 5 吕 : NEXT 
358 PRINT 咎 ?同志 , 您 得 了 ”5 

3 PRINT” 处 刘 

378 PRINT 跑 : END 

388 NEXT 


0 1 
ee > 0.61 THEN 388 


270 一 29(0 句 是 读 存 500 句 中 的 信息 ， 这 样 症状 组 合 存在 


B( 工 ) 中 , 对 应 该 症状 组 合 的 体温 下 限 存在 下 ( 


1 ) 中 , 而 


体温 上 限 存在 下 ( [，2 ) 中 ， 工 =0,1,2，…… ，15 共 16 种 病 


情 诊断 依据 。 
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300 一 380 句 是 一 个 大 循环 ， 首 先 用 病人 输入 的 症状 组 合 
( 它 已 经 按 数值 大 小 由 小 到 大 排列 好 )C 与 B 中 的 每 种 症状 组 
合 进 行 比 较 ， 若 C 与 B 中 的 某 元 素 相 等 ， 再 用 体温 T 工 与 下 
中 对 应 的 体温 上 、 下 限 比 较 ， 若 T 1 在 此 上 、 下 限 内 ， 则 找 
出 对 应 的 诊断 结果 (病名 ， 工 书 ) 及 处 方 (D $ ), 并 显示 出 
来 。 若 C 与 所 有 B 中 的 症状 组 合 均 不 符合 ， 或 虽 符 合 但 体温 
不 在 其 对 应 的 上 下 限 内 ， 则 认为 该 病 电 脑 医生 无 法 诊断 。 

260 句 RESTOR 巨 是 恢复 数据 区 语句 。 

390 句 是 给 出 无 法 诊断 的 提示 。 

程序 运行 方法 : 

程序 运行 后 , “患者 ”可 根据 电脑 医生 的 询问 输入 姓名 和 
体温 ， 然 后 根据 列 出 的 “症状 清单 ”， 输 入 所 患 症状 。 可 以 
同时 输入 几 个 病状 ， 但 不 超过 4 个 。 电 脑 医生 根据 输入 症状 
和 体温 进行 诊断 并 开 出 处 方 。 对 于 患者 输入 的 症状 组 合 如 果 
太 奇怪 ， 则 电脑 医生 无 法 诊断 ， 并 给 出 “很 抱 攻 ， 这 病 我 看 
不 了 ， 请 另 请 医生 看 ”的 提示 。 症 状 输入 ， 不 一 定 按 次 序 ， 
例如 “1892 和 “198? 表 示 同 样 症状 组 合 ， 会 得 出 同样 的 诊断 
结果 。 但 同一 个 症状 只 能 输 一 次 ， 例 如 “1142” 电脑 医生 无 
法 诊断 。 如 果 无 症状 ， 可 输入 0 ”%” 但 要 输入 体温 。 

程序 运行 实例 : 


]RUN 
人 


林琳 同志 ,您 的 体温 是 多 少 ?输入 体温 38.8 
放生 征 状 (您 村 择 下 训 症 状 前 的 号 得 , 酌 如 2 
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40 


输 和 体温 41 
村 的 号 笠 , 全 如] 


从 部 一 瑟 尖 
马 盖 ANNE 有 攻 渤 五 [ 
= 知 和 > 上 7 中 情 - 浊 it 动 i 站 


引 
珂 学 型 
过 区 
2 
v 吉 


您 好 1 我 是 电脑 医生 ,您 叫 什么 名 字 ? 输 入 您 的 名 字 


是 多 少 ?输入 体温 39.2 
开关 例如 2 


宁 一 沁 尖 水 和 污 型 去 长 上- 
蕉 8 三 
t 奔 


好 ! 我 是 电脑 医生 ,您 叫 什 么 名 字 ? 输 入 您 的 名 字 
人 


3 入 下 
[本 冯 3 


你 


拓 旺 < 挛 
-4 天 > 语 贡 站 


BarNYN 玫 夺 ”下 到 梢 讶 证 二 六 吉 这 


人 必 关 皇 半 ”直下 区 兵 兵 恒 熙 


9.， 破译 密码 


一 个 藏 有 绝密 文件 的 保险 柜 ， 自 1948 年 ， 很 长 时 间 无 法 
打开 。 几 经 调查 ， 终 于 了 解 到 这 一 保险 柜 的 开锁 密码 每 天 都 
不 同 ， 其 变化 规律 如 下 : 

作 保险 柜 的 密码 是 一 个 六 位 数 ; 

@ 把 六 位 数 按 前 后 顺序 拆 成 两 个 三 位 数 入 和 B, 则 它们 
之 差 正好 等 于 当天 的 是 期 数 〈 例 如 A - B = 4， 表 示 星 期 
四 ) ; 

图 星期 数 为 偶数 时 ，A、B 之 和 正好 等 于 1948; 

国 星期 数 为 奇数 时 , A、B 之 和 正好 是 当年 年 份 的 约 数 。 

现在 ， 我 们 来 编制 一 个 BASIC 程序 ， 要 求 尽快 地 破 


译 这 个 开锁 密码 。 

题 意 分 析 : 

密码 是 一 个 六 位 数 ， 又 按 前 后 顺序 分 成 两 组 A 和 B， 可 
知 前 三 位 数 A 的 第 一 位 最 小 应 是 1， 二 、 三 两 位 最 小 是 0 
后 三 位 数 B 的 第 一 位 最 大 为 9， 二、 三 两 位 最 大 也 是 9 ， 这 


样 ， 就 可 大 致 划分 六 位 数 的 变化 范围 。 容 易 想到 若 取 做 循 
环 变量 ， 初 值 为 100, 终 值 为 999, 安 排 一 个 循环 ， 即 可 “扫描 ? 
所 有 的 三 位 数 。 

密码 每 天 都 不 同 ， 而 且 是 以 星期 数 来 区 分 的 ， 所 以 断定 
密码 一 共有 7 组， 即 星 期 一 是 一 组 密码 ， 星 期 二 是 一 组 密 
码 ，………: ， 星 期 七 (日 ) 又 是 一 组 密码 。 若 取 ] 作为 另 一 个 
循环 变量 ， 循 环 次 数 为 1 到 7 ， 从 而 表示 每 天 的 星期 数 ， 即 
]J = 1 就 是 星期 一 ，J = 2 就 是 星期 二 ，…… 等 等 。 

根据 A 、B 之 差 就 是 当天 的 星期 数 ， 即 A 一 B= JJ， 故 
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可 以 取 A=J+I:B=T 工 。 

由 星期 数 村 为 奇数 时 〈 即 在 星期 一 、 三 、 五 、 七 〈 日 ) 
4 天 中 ), 两 数 A、B 之 和 正好 是 当年 年 份 的 约 数 这 一 条 件 ， 
可 以 写成 关系 式 : 1948/(A+B)=INT(1948/(A+B)) 

由 星期 数 是 偶数 时 〈 即 星期 二 、 四 、 六 ),A、B 之 和 
为 1948， 则 可 以 直接 写成 : A +B =1948。 

至 此 ， 我 们 已 逐一 考虑 了 满足 密码 变化 的 四 个 条 件 ， 故 
容易 写 出 如 下 程序 ， 程 序 名 为 PROGRAM-ONE 。 


]UST 


3 了 芒 译 密码 一 

5 RE 06 人-ONE 

1 DJ 够 (7) 

2 FIRk=1T07 

物 RE 人 体 (k) 

和 NEXTK 

为 有 星期 一, 星期 二 ,星期 二 ,星期 四 ,星期五 ,星期 


2 IAA2) NI987 0 

097 八 ， TEN 了 RN 
够 (J 灾 “55 了: 110 

+B= 1948 THEN PRINT JJ 5 扣 (J) 妆 ” 


瓜 


130 EN 
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程序 中 10 一 50 句 ， 是 把 星期 一 (MUN )，…… ， 星 期 日 
(CSUN ), 存 入 A 书 (K) 中 (KK=1，2，.…… 2 

90 行 是 用 逻辑 表达 式 写 的 ， 它 的 意思 很 清楚 ， 如 果 星 期 
数 本 不 是 偶数 〈 即 奇数 ), 同 时 A + B 又 是 1948 的 约 数 的 话 ， 
则 打印 出 星期 数 J， 相 应 的 中 文 汉 字 和 和 A 、B 两 组 数码 ， 然 
后 再 循环 找 其 余 各 组 。 

如 果 不 满 足 90 句 条 件 ， 则 100 句 就 是 偶数 的 情况 。 

如 果 90 句 、100 句 的 条 件 均 不 满足 ， 则 不 符合 题 意 ， 再 继 
续 搜 索 。 

把 程序 PROGRAM-ONE 殴 入 计算 机 ,让 它 运行 去 吧 ! 
结果 肯定 会 有 ， 但 是 你 必需 要 有 足够 的 耐心 ， 它 的 速度 一 定 
是 很 慢 的 。 

原因 何在 ? 循环 次 数 高 达 899x7=6293 次 。 

乘 计算 机 忙于 “破译 密码 ”的 时 间 ， 我 们 不 妨 仔细 地 研 
究 一 下 ， 看 一 看 程序 PROGRAM-ONE 还 有 没有 值得 推 吉 
和 改进 的 地 方 。 

根据 前 面 分 析 ， 密 码 只 有 7 组， 满足 所 有 四 个 条 件 的 只 
有 也 仅仅 有 7 个 记录 ， 显 然 ，6293 次 循环 中 ， 大 量 的 是 无 效 
循环 。 

众所周知 ， 循 环 部 份 执行 速度 的 快慢 ， 对 整个 程序 运行 
时 间 的 影响 是 至 关 重 要 的 。 而 减少 循环 的 次 数 ， 特 别 是 减少 
不 必要 的 循环 ， 是 提高 速度 的 关键 。 为 此 ， 减 少 循 环 能 套 、 
增 大 循环 步 长 以 及 缩短 初 值 与 终 值 的 差距 等 ， 都 是 值得 一 试 
的 方法 。 

对 照 程序 PROGR AM-ONE， 我 们 可 以 分 析 一 下 那些 
方法 可 取 ， 那 些 方法 又 是 不 可 行 的 。 
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首先 ， 我 们 认为 内 循环 70 一 110 句 是 不 能 省 略 的 ， 因 为 
循环 变量 J 是 星期 数 ， 1 到 7 一 个 不 能 少 ， 步 长 也 只 能 是 1。 
这 样 ， 增 大 循环 步 长 ， 缩 小 初 、 终 值 差 值 的 办 法 是 行 不 通 
的 。 

其 次 ， 本 程序 一 共有 两 重 循环 ， 外 循环 是 取 遍 所 有 的 三 
位 数 ， 内 循环 是 表示 每 天 的 星期 数 ， 二 者 缺 一 不 可 ， 因 而 减 
少 循环 层次 的 办 法 也 无 法 实现 。 

最 后 ， 我 们 只 有 把 精力 放 在 外 循环 的 初 、 终 值 的 取 值 范 
围 上 ， 看 一 看 有 没有 办 法 ， 找 到 提高 速度 的 措施 。 显 然 ， 最 
主要 之 点 ， 就 是 设法 尽量 减少 无 效 循环 的 次 数 。 

现在 ， 我 们 不 妨 把 本 题 的 四 个 条 件 ， 综 合 起 来 进行 分 析 
和 思索 ， 并 尽 可 能 利用 计算 机 帮助 我 们 作出 一 些 判断 。 

由 题 意 ， 我 们 容易 写 出 以 下 三 个 关系 式 : 

A-B=]J  ( 当 J=1,2,3,4,5,6,7- 时 ) (1) 
A+B=:4948 ( 当 本 =2,4,6 时 ) ( 2) 
1948/(A+B)=K ( 当 J=1,3,5,7 开 为 正 整 数 时 )( 3 ) 

现在 的 问题 是 如 何 减少 60 句 工 从 100 到 999 中 无 效 循 环 
的 次 数 ， 换 句 话 说 就 是 如 何 判断 三 位 数 A、B 的 变化 范围 。 
这 个 问题 初 看 起 来 ， 似 乎 无 法 下 手 ， 但 是 仔细 分 析 一 下 ， 它 
还 是 有 规律 可 寻 的 。 

第 一 ， 我 们 可 以 由 ( 3 ) 式 判断 天 取 正 整数 时 的 变化 范围 
( 若 K 不 是 正 整数 , 则 不 符合 题 意 ), 从 而 确定 A、B 之 和 的 变 
化 范围 〈 同 理 ，A + 了 是 正 整数 时 有 效 ， 反 之 不 符合 题 意 )。 

如 何 判断 K 的 变化 范围 呢 ? 

我 们 可 以 作 一 个 近似 估算 ， 若 区 =10， 则 由 ( 3 ) 式 知 
A+B=194.8, 这 显然 是 不 符合 事实 的 ;其 一 ，A + B 不 能 
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有 小 数 ， 其 二 ，A、B 均 为 三 位 数 ，A + B 最 小 是 100+ 100 
=200, 所 以 天 值 最 大 不 会 超过 10。 

为 了 正确 估算 A + B 的 变化 范围 ， 我 们 可 以 编 一 个 程序 
来 求解 ， 其 程序 见 PROGRAM-TWO。 


]LIST 


1 的 RN PROGR 全 -TD 
T0 1 


NT (1948 7 K) THEN 226 


226 了 PRINT 淮 = 水 ”= 全 了 = 光 
238 全 NTk 


RN 

K=1 X= 仙 8=194 
K=2 X= 人 HB=914 
K=4 X= 半 8=487 


从 上 述 结 果 可 以 看 出 ， 开 符合 正 整 数 ， 且 A ，B 之 和 也 
符合 正 整数 的 只 有 三 个 ， 故 可 以 确定 K 的 变化 范围 最 小 是 1， 
最 大 是 4。 

第 二 ，K = 1 时 ，( 3 ) 式 演变 成 ( 2 ) 式 。 满 足 题 意 的 解 ， 
还 应 考虑 ( 1 ) 式 。 这 样 ， 才 可 进一步 确定 A 和 了 BB 的 变化 ， 同 
样 ，A、B 之 值 应 为 正 整数 ， 小 数 无 效 。 

由 
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本 CD 


AT+B=1948 (2) (K = 1 时 成 立 ) 
联 立 解 之 ， 则 

A=1948/2 二 JJ/2 
B =1948/2 一 本 /2 (本 三 本 25354557677 y 


我 们 也 可 以 编 一 个 程序 ， 求 K = 1 时， 三 位 数 A 、B 的 
变化 范围 ， 程 序 见 PROGR AM-THREE。 


]LT 

295 REN PROGR 人 -THREE 
3088K = 1: 了 INT = 冰 
移 了 RINT 

3t FF 中 J=1T07 
3208=19%872+J/72 
3308= 19%872-J/2 
3 h= INT 人 
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休 970 
了 -972 


人 977 
-971 


由 上 述 结果 可 知 ， 当 K 民 = 1 时 ，A 和 了 B 均 为 正 整 数 的 解 
也 是 三 组 ， 它 们 的 变化 范围 : 

A=975--977 ， B =971 一 973 

第 三 ， 仿 照 第 二 种 情况 ， 在 K = 4 时 ,也 应 满足 ( 1 ) 式 ， 
故 有 : 


De ( 1) 
A++B=1948/4 (3)  ( 当 K = 4 时 成 立 ) 
联 立 解 之 : 
487+j 
A= 全 一 
B =- 代 7 二 (本 =1,2,3,4,5,6,7 ) 


解决 上 述 问 题 的 程序 见 PROGRAM-EFOUR。 


]UST 


395 RENM PROGR 全 -FOUR 
4 = 下限 INT 飞 = 水 
4 入 耻 I[ 

410 F 妥 J=1T07 
2608= 487+J7 
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2 


430B = (4 -JJ 7 2 

4 IFh= INT 人) ANDB= INT(B) THEN 了 IN 
T 让“ 光 了 RINT 了 = 于 

445 限 INT 

人 8 NEXT 


]RUN 
k=4 


作 244 
p=243 


作 249 
了 =242 


人 240 
B=241 


全 247 
=246 


由 此 可 知 ， 在 K= 4 时 ，A 的 变化 范围 为 : 244 一 247， 
B 的 变化 范围 为 240 一 243 。 

综合 以 上 两 种 分 析 结 果 ，A、B 变 化 范围 是 : 

A:， 244 一 247 ; 975 一 977 

B，240 一 243 ; 971 一 973 

由 于 A、B 共 同 组 成 6 位 数 密 码 ， 故 进而 确定 工 的 变化 
范围 : 240 一 247; 971 一 977。 这 样 一 来 ， 工 的 变化 范围 ， 已 
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从 100 一 999 的 899 次 ， 减 少 到 只 有 14 次 。 而 程序 ON 正 的 
二 重 循环 是 899 x 7 =6293 次 ， 减 少 到 现在 14x 7 =98 次 ， 
共 减 少 了 6100 余 次 无 效 循环 。 

现在 ， 我 们 来 看 一 下 程序 PROGRAM-ONE 的 运行 结 
果 吧 ! 唤 ! 它 已 经 出 来 了 : 


]RUN 

星期 日 47240 
星期 五 246241 
星期 三 245242 
星期 一 244243 
星期 六 977971 
星期 四 976972 
星期 二 975973 


上 述 程序 在 PC-1500 机 上 运行 了 三 十 分 钟 左 右 , 在 中 华 
学 习 机 上 运行 五 分 钟 左 右 ， 可 见 速度 是 相当 慢 的 。 但 是 ， 我 
们 毕竟 找到 了 “密码 ”经 逐一 投 试 ， 果 然 每 天 开锁 的 密码 都 
不 相同 ， 但 都 能 打开 。 

最 后 ， 我 们 想 利 用 前 面 的 分 析 结 果 ， 将 程序 PROGR - 
AM-ONE 稍 加 改动 ， 看 看 运行 时 间 如 何 ， 究 竟 速 度 能 提 
高 多 少 ? 程序 见 PROGRAM- FIVE:， 


f 
9 
3 
1 
0 
1 
2 


]LIST 


3 RE 窝 译 密 钉 - 
5 REN PRO6R 人 二 IE 
18 DT 航 (7) 

2 FRK=1T07 
各 了 部 种 (k) 
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四 NEXTK 
2 0fhTh 星期 一 星期 二 ,星期 三 ,星期 四 ,星期 五 ,星期 
八 宇 / 

5 JIPUT 外 PRINT 

5 限 IT 玫 " 入 ”5 放 

57 限 INT 

中 fN= TANDN=1THEN EN 

0 F 


由 /2)) 的 (1948 7 人 
+ 也))》THEN PRINT Ji- 
1 的 


航 人 ”5 汐 玉 站 
9 THEN PRINT 本 -3 各 (天 “ 


16 下 h+B = 
淮 当 “ 沁 

1 KEN 
120 KENT 
125 60T0 9 
]28 了 IMT 
1]30 E 


]RUN 
?240 247 


作 240 小 247 


7- 星 期 日 247 240 
5- 星 期 五 246 241 
3- 星 期 三 245 242 
1- 星 期 一 244 243 
2970,977 
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作 978 N-9f 


6- 星 期 六 977 971 
4- 星 期 四 076 972 
2- 星 期 二 975 973 
?411 


作 1 让 1 


可 见 ， 本 程序 的 结果 与 第 一 个 程序 结果 是 一 致 的 ， 而 本 
程序 运行 时 间 只 有 几 秒 钟 ， 速 度 比 第 一 个 程序 提高 了 100 多 
倍 。 


本 程序 运行 方法 如 下 : 


]RUN 1 
?240 | I 的 第 一 种 取 值 范围 


29247 


作 240 人 247 


了- 星期 日 247 248 

5- 星 期 五 246 241 

3- 星 期 三 245 242 

] 旺 和 244 243 

7097? } 指 工 的 第 二 种 取 值 范围 
-976 -977 
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1 } 帝 入 1,1 结 束 


作 1 止 1 

本 程序 结构 新 颖 ， 解 法 巧妙 ， 更 主要 的 是 利用 计算 机 协 
助 编程 。 读 者 可 以 将 上 述 7 组 结果 ， 即 每 天 不 同 的 6 位 码 ， 
逐一 代入 文中 开头 列 出 的 四 个 条 件 中 ， 来 验证 一 下 结果 的 正 


确 性 。 
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某 个 学 生 ， 将 6 门 课 程 名 称 、 学 分 和 成 绩 ， 按 上 述 先 后 
次 序 存放 在 DATA 区 中 , 要 求 按 成 绩 的 等 次 (A、B 、C 、D) 
查找 学 业 情况 。 试 编制 一 个 B AS IC 程序 。 

分 析 : 

由 于 学 生 按 课程 名 称 、 学 分 和 成 绩 的 次 序 已 将 上 述 信息 
存放 在 DATA 语 句 中 ， 今 要 求 按 成 绩 查 找 ， 故 可 以 直接 输 
入 成 绩 等 次 ， 用 字符 串 比 较 的 方法 处 理 。 

变量 设置 A$ : 课程 名 称 

又 : 学 分 

C$ : 成 绩 等 次 
I:， 人 循环 变量 
下 9$ : 成 绩 输 入 

循环 外 用 INPUT 语句 输入 成 绩 , 循环 中 先 读 取 DATA 
区 中 的 信息 ， 如 果 输 入 的 成 绩 正 $$ 不 等 于 存 贮 的 信息 Cd ， 
则 循环 再 找 ; 如 果 相 等 则 打印 对 应 成 绩 等 次 的 信息 。 

程序 见 下 13， 

说 明 , 请 注意 循环 体外 65 句 RESTORE 的 安排 ， 如 
果 没 有 这 一 句 ， 经 70 句 无 条 件 转移 上 去 ， 再 进入 循环 时 将 无 
数 可 读 。 这 虽 是 一 个 简单 的 问题 ， 但 初学 者 容易 忽视 ， 即 便 
是 有 经 验 的 程序 员 ， 稍 不 留心 ， 也 会 发 生 类 似 的 错误 。 
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]LUST 


2 RH 

3 RN 成 绩 

4 REN 课 ( 摆 》 学 分 (0$> 成 绩 ( 人 4》 
5 了 僻 人 二) 人 0 和 人 ) 

1 INPUT “输入 成 绩 (h 了 CD; 
直上 外 = 人 THN100 

1]2 了 恨 INT 钱 

15 了 PRINT 

如 F 腿 I=1T708 

3 RE 各 名人 

和 正片 ( >》 作 THEN60 

5 限 INT 够 天 -和 -0 
6 NEXT 

6 RESTORE 

人 60T0 1 

1 的 只 从 ENGLISH 4 

118 只 T 放 PHYSICS 5 

129 了 殉 六 CHINESE,5 

130 哈 人 BT031 

148 吗 fh CHENMITY 2 

158 中 T 用 LhNOURGE, 3 

108 EN 


程序 Hl13 的 运行 结果 如 下 : 
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]RUN 
输入 成 绩 作 BC7D 
有 


EN6GLISH---4--- 


了 NSIC---3--- 
输入 成 绩 人 了 ,CD 
8 


LANGUAGE 
输入 成 绩 (f 了 ;CD 
( 


PHYSICS---9-- 必 


CHENTTY---2--- 
输入 成 绩 ( 人 BC D8 


讨论 : 

(1) 若 本 题 改 为 按 课 程 名 称 查找 学 业 情 况 ， 则 只 要 改动 
40 句 条 件 判断 语句 中 的 C$ 为 A$ 。 

(2) 若 按 学 分 查找 学 业 情 况 ， 仅 改动 40 句 中 的 C$ 为 X 
行 不 行 ? 为 什么 ? 请 有 兴趣 的 读者 不 妨 上 机 亲自 试 一 下 。 

2. 计算 机 自动 出 题 评分 


试 编 一 个 程序 ， 要 求 : 
(1) 计算 机 自动 出 题 ， 每 次 不 一 样 ; 
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(2) 共 10 道 题 ， 每 题 都 包含 如、 减 、 乘 、 除 运算 ; 
(3) 计算 机 自动 检查 学 生 的 答案 ， 打 印 每 题 正 误 ; 






B / A 十 C 半 了 D 一 下 =x， 


图 2.1 
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) 计算 机 给 出 总 分 数 。 

设计 思路 : 

利用 随机 函数 RND(X) (其 中 X 可 以 是 任意 数值 ), 可 
以 产生 一 个 0 到 1 之 间 的 随机 数 ， 再 用 取 整 函数 INT(X)， 
可 以 产生 整数 。 为 方便 计算 可 以 产生 1 到 2 位 的 随机 整数 ， 
把 它们 赋 给 A、B 、C、D、 巨 五 个 变量 ， 从 而 产生 五 个 随 
机 数 ， 并 可 以 构成 一 个 包括 加 、 减 、 乘 、 除 的 算式 : 

B/A+C 米 D 一 下 
利用 PRINT 语 句 ， 可 以 将 上 述 算式 打印 出 来 并 显示 在 
上 。 小 朋友 可 以 用 INP UT 语 句 将 算式 的 计算 结果 送 入 计 

算 机 ,再 通过 条 件 语句 IF/THEN 来 判断 答案 的 正确 和 错 
误 ， 并 给 出 计算 是 否 正确 的 评语 ， 做 错 了 减 10 分 ,, 即 玉 = 
K 一 10， 做 对 了 不 减 ， 其 中 K 的 初 值 定 为 100 〈 满 分 )。 

根据 以 上 设计 思路 ， 容 易 画 出 一 个 框图 ， 见 图 2.1。 

对 照 框 图 2.1， 不 难 写 出 源 程 序 由 14; 


]LST 


5 RE HI 
1 REM 计算 机 自动 出 题 详 分 

26k = 1 的 

=1T0 二 

-时 :随机 产生 fb BC,D,E 的 人 
人 


0 

地 人 
08+k RND 
6 人 
8 人 
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9 PRINT "打印 算式 " 

] 的 限 INT 了 人 和 CD- 5E3 =” 

118 INPUT “输入 答案 :" 玉 

2 IFB7AN+CFD-E=XTHEN 178 

139 PRINT "IT I9 好 0N6: 做 异 了 " 

149 REM 做 竺 1 是 减 10 分 

150K=K -人 

166 60T0 180 

178 PRINT "IT IS RIGHT: 做 对 了 ” 

188 NEXT TI 

185 PRINT 

198 PRINT “得 分 :5 “水 

268 EN 

程序 中 K 为 先 赋 给 的 总 分 100， 做 错 一 题 由 总 分 减 去 10， 
X 为 小 朋友 根据 四 则 运算 题目 得 出 的 答案 ， 把 它 由 键盘 送 入 
计算 机 。 

下 面 是 程序 H14 的 运行 实例 ; 


| 

1 人 对 了 
印 算式 

21/7+0+5-7= 


\ 答 案 :26 
生 
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60 


打印 和 去 
247 8+6k+2-f= 

答 和 答案 :9 

IT IS RIGHT: 做 对 了 
打针 和 


180 

答 入 答案 :3 
IT JS 邮 ONG: 做 错 了 
打印 算 式 


16724940- 人 - 

输入 答案 :49 

IT IS RIGHT: 估 对 了 
打印 算式 

人 At88- 人 = 


输入 答案 :62 
IT IS URON6: 像 错 了 
打印 算式 


和 78+7k3-4- 


输入 千 案 :22 
IT IS RIGHT: 傣 对 了 
打印 算式 


也 

输入 答案 :36 

IT JIS RIGHT: 做 对 了 
打印 算式 

607 19+9+2-0- 

输入 答案 :24 

IT IS RIGHT :做 对 了 
打印 朝 趟 


28/ 19+9k0-9- 
输入 答案 :时 


IT JI RIGHT: 做 对 了 
得 分 : 88 


3. 课程 表 


全 国 各 地 中 小 学 ， 正 在 日 益 开展 计算 机 普及 教育 ， 受 到 
广大 青少年 喜爱 ， 许 多 同学 积极 参加 课余 计算 机 学 习 小 组 ， 
有 的 还 取得 了 令 人 可 喜 的 成 绩 。 特 别 是 中 华 学 习 机 有 处 理 汉 
字 的 功能 ， 更 受到 广大 中 小 学 生 的 欢迎 ， 用 汉字 打印 报表 是 
一 件 贷 有 情趣 的 事情 。 下 面 介绍 几 个 打印 课程 表 的 程序 。 

第 一 个 程序 H15， 编 制 十 分 简单 ， 操 作 非 常 简便 ， 对 好 
打印 纸 ， 接 通 打印 机 电源 ， 按 RUN 键 后 ， 立 即 打印 出 一 张 
课程 表 ， 见 表 2.1。 课 程 的 内 容 , 可 根据 学 校 安排 , 在 DATA 
语句 中 输入 或 修改 。 下 面 这 个 课表 ( 表 2.1)， 用 POKE 
1659，5 设 定 ， 


]RUN 


括 
证 


| 
Bew 


111L3 
响 


斑斑 站 六 测 s 奸 加 刘 
ant 


3 不 站 ? 上 五所 五 所 


cm cm - 记 < 人 > 一 
yyBt3atts 才 

Ta 

和 下 下 疙 次 兰 ， > 

起 长 直 区 aattaatt k 若 R 寺 | 上 关 

INIIKHIH 五 几 玫 Ri 

小 3ydyd 

让 芷 厂 抽 厂 汪 >ct>ycrHt 六 

mkmkrII 王 琵 、 

EEC 


二 
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对 应 表 2.1 结 果 的 程序 清单 如 程序 H15 所 示 : 


限 IMT T 角 ( 人; 洒 本 本 村 课程 表 。 本 洒 
下 末 ， 

人 的 .PRINT 二 (人 
八 


% FRI=1T00 
55 了 PRINT 


眉 

必 
咽 
v 


afaatat 才 申 
TammKmkt 瑟 全 
法 
该 闹 六 六 亚 洱 


必 
四 

一 
局 


心 
心 
恬 忆 


天长 丰 人 五 拓 到 后 ><t>c 


党 下 六 六 查 查 


-HEHE 


必 


ta 
淹 直 yt 
mkmkmmm 王 斑 
ER 


心 
恬 


10 一 35 句 读 存 课程 信息 ，40 句 用 TAB (X ) 函 数 定位 
打印 一 个 表 头 ，45 句 打印 星期 ，50 一 80 句 打印 课表 内 容 。 请 
,注意 打印 格式 55 句 , 65 句 ，75 句 的 安排 ， 包 括 标点 符号 在 内 ， 
人 缺 一 不 可 。 

第 二 个 程序 H16， 是 在 程序 中 设置 了 打印 语句 ， 程 序 运 
行 后 ， 在 屏幕 上 显示 一 张 课程 表 ， 并 提示 是 否 需 要 打印 ， 是 
的 按 Y 键 ， 反 之 按 任意 键 结 束 停机 ， 从 而 比 第 一 个 程序 H15 
增加 了 更 多 的 灵活 性 。P OKE 1659， 0 是 关闭 打印 机 ， 它 
相当 于 西 文 状态 的 PR 共 O 〇 命令。130 句 POKE1659，n， 
n 取 值 不 同时 ， 字 型 大 小 改变 。 程 序 清 单 见 H 16， 运 行 结 
果 ( 见 表 2.2) 和 上 面 基 本 相同 。A 的 赋值 是 一 种 标志 ， 它 可 以 
控制 断 开 打印 机 和 主机 的 联系 .GETK$ 是 一 个 立即 执行 命 
令 ， 从 键盘 中 输入 一 个 字符 后 ， 不 需要 按 RETURN 键 。 


人 
| 才学 和 昌文 才学 得 
2 放学 机 再 轩 文 效 举 证 文 由 
3 庄 冰 体育 省 乐 估计 梨 轩 自习 
4 甘 哮 体育 音乐 化 学 英 虽 自习 
5 北 学 政治 自习 体育 泊 音 和 
5 化 学 下 治 自习 体育 政治 音乐 
]LI9 
1 REN Htb 


2 PRINT : PRINT 
63 
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5 REN "课程 表 一 " 
19 JI 航 (66 


一 
一 
一 


介 PRINT T 角 (14)? 课 程 表 " 
全 PRINT 傅 ( 9 一 二 


2 [中 LI=1T00 

中 了 IMT TD ”3; 

6 FIJ=1T00 

的 PRINT 各 (JJ 和 “ 

1 NEXT J 

乒 了 INT 

8 NEXT 

人 下 h= 1 THEN POKE 1659)0: EN 
条 PRINT“ 是 伯 要 打印 (YN)” 
9 6ET 入 

9 IFk= YY TEN130 

% 区 


190 DNTh 教学 物理 ,语文 ,教子 语义， 
105 NTh 教学 ,物理 , 音 文 ,教学 ,语文 
119 Th 某 语 ,体育 ,音乐 ,化 对, 英 衣 ， 
115 DTA 甘 语 ,体育 ,音乐 ,化 漂 , 英 放 ， 
128 Th 化 学 政治 ,自习 ,体育 , 政 沿 ， 
125 险 从 化 学 , 改 治 , 自习 体育 , 改 洛 ， 
139 POKE 1659)5 

15h=1 


148 60T0 4 


四 


ImHmHINI 斑 营 


SS 和 涛 响 


五 


O 


1 打印 的 表格 字 型 小 一 些 , 用 POKE 
一 些 


1659， 5 打印 的 表格 字 型 大 
课 程 表 


个 程序 H17， 是 在 前 面 两 个 程序 的 基础 上 ， 增 加 了 
人 


制 表 功 能 ， 从 而 使 输出 更 为 整齐 美观 。 关 于 制 表 语 名 的 安排 
及 原理 说 明 ， 请 看 “表格 程序 " 表 2.3 和 表 2. 钊 两 个 运行 实 


第 
例 ， 用 POKE 16 59， 


一 一 
体育 | 


文艺 [ 现 计 
和 可 


美术 


Ca 
T 云 二 六 

E 可 文 ] 
鲜 宇 


数学 
一 一 十 一 一 十 
一 一 十 
音乐 | 
一 一 十 

| 

| 


思 品 | 活动 | 体育 | 活动 
| 


三 了 丁 中 

| 
数学 | 语文 
否 文 十 可 广 
训 东 二 


到 二 
间 示 ] 下 | 
科技 | 美术 | 说 话 


南京 市 ”北京 路 小 学 二 年 级 ”朱伟 伟 . 


语文 
十 一 一 十 一 一 
一 一 十 一 一 十 一 一 十 


4 


| 
四 上 3 
数学 | 语文 


| 2 
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]RUN 


课 程 未 


广 -一 -六 -一 -六 一 一 一 一 一 一 一 一 一 一 

1 计生 1 吐 1 寺 Akl 

| ”1 | 和 | 长 1 本 | 描 | 址 
上 -一 十 一 十 一 十 一 十 一 十 一 十 一 于 址 : 
| 和 鹤 | 各 | 人 1 和 1 民 11 捧 
| | HE IERIHhI?PIAtil 1 1 

上 一 十 一 十 一 十 一 十 一 十 一 十 一 于 许 
| 己 | 和 1 和 | 1 1 过 
| 1 汪 111i 训 111 
上 一 十 一 十 一 十 一 十 一 十 一 十 一 于 汕 - 
1 和 1 失 相 1 了 | 1 1 去 
| | HR 有 HE II | 准 1 1 1 
上 一 十 一 十 一 十 一 十 一 十 一 十 一 于 os 
1 111 录 1 权 | 检 1 机 1 11 关 
上 一 十 一 十 一 十 一 十 一 十 一 十 一 下 
111P 寺 KE 1 13p 
| | HE | 外 |? 疾 |Hl 1 1 和 十 
| 

本 


]LIST 


PRINT : PRINT : PRINT 


RE HT 


一 个 Jr 一 一 


2 F 限 J=11 
25 RERD 各 (D)] 
38 ENT ] 

3 EXT 

御 PRINT TB( 15);" 课 程 未 " 

和 | 下 和 = 二 TEN POKE 1659,| 
CE 


0 


PRINT | 术 | 


6 [ 吸 J= 1T06 

65 耻 INT 般 (T 了 JJ) |” 

1 ENT J 

哲 PRINT 

名 开 I=6THGN FRINT [一 圭一 一 上 一 一 二 
一 一 上 一 一 上 一 一 上 一 一 上": 60T0 8 

1 60 见 28 

PRINT 。 。 商家 学 
8 有 IMT “ 更 市 北京 路 小 学 二 年 
朱伟 人 


和 开放 =1THEN POKE 1059)0: END 
寻 RRINT :PRINT 

全 了 INT "是 省 要 打印 ?2(YAN)” 

折 人 [ hk 

9 于 和 = Y THEN 138 


% EN 
198 Th 语文 ,数学 ,得 文 ,教学 , 辐 
195 NTh 数学 ,语文 ,数学 语文, 数 


》 


中 文 
, 


和 
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区 风 二 二 | 


< 一 一 一 一 一 -一 


| 


-和 -| 


| 210 | 220 


编制 一 个 程序 ， 要 求 能 制 成 如 表 2. 5 格式 的 报表 : 


4. 表格 程序 
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上 面 这 个 报表 在 实际 工作 中 常常 可 以 看 到 ， 显 然 ， 能 够 
绘制 表 2. 5 报表 ， 则 一 般 类 似 的 报表 也 可 以 画 出 来 。 所 以 我 
们 在 编制 这 个 报表 程序 时 , 尽 可 能 把 方法 叙述 得 清楚 些 , 以 供 
使 用 者 学 习 和 借鉴 ， 并 可 以 以 本 程序 为 模式 ， 编 制 出 更 多 更 
好 的 报表 来 。 

分 析 : 

(1) 如 果 不 考 虑 一 ， 三 ,三 的 部 分 , 表 的 下 半 部 是 四 行 三 
例 ， 而 表 中 放 的 是 数值 型 数据 ， 因 此 ， 用 二 组 数组 二 重 循 
环 处 理 读 存 数据 是 比较 方便 的 ,变量 取 双 下 标 变量 A(I,，J) 
比较 适合 ，I = 1 2, 3, 4,， 丁 = 1, 2, 3。 而 所 有 数据 放 在 D AT 和 A 
语句 中 ， 因 此 ， 在 程序 的 开始 首先 把 数据 存 贮 起 来 ， 以 备 填 
表 时 使 用 。 这 项 工作 由 2 一 210 句 完成 ， 程 序 段 见 也 18: 


]LIST1219 


1 RENM Ht 


2 RE 来 格 程序 
5 REN 人 3) 
18 DIM Ah 人 3) 


3 NEXT 
20 0hTR 110, 120 139, 140， 150, 108 
210 有 NTh 280,210, 220 238 240, 258 


(2) 关于 表 的 上 半 部 ， 即 包含 中 文 数字 一 、 二 、 三 的 部 
份 ， 可 把 它 作 为 一 个 表 头 处 理 。 中 华 学 习 机 有 制 表 符 号 ， 利 
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用 它们 确实 是 很 方便 的 ， 只 是 要 注意 符号 的 正确 选用 和 打印 
格式 的 对 齐 处 理 。 在 中 文 拼音 状态 下 , 按 | \ 上 | 键 可 以 灵活 和 


用 制 表 符 ,配合 | S | ,| > | 两 个 键 ,原则 上 可 以 满足 不 同 的 抽 


表 要 求 。 完 成 表 头 制作 只 需要 安排 300,310 两 句 。 


]HST390,319 
38 PRINT 
3 PIN = 


(3) 紧 接 着 表 头 以 后 ， 要 画 一 根 横 线 ， 而 为 了 连接 表 的 
下 半 部 ， 又 常常 需要 画 “ |- 一 - |- 一 - |” 线 , 故 安排 了 400 句 ， 
它 由 320 名 调用， 这 实际 上 是 调子 程序 ， 而 子 程序 又 来 得 特 
别 简单 ， 在 需要 画 线 的 地 方 ， 正 确 调用 ， 完 成 画 线 任务 后 再 
自动 返回 ， 如 ; 


]UST 
328 60SUB 480 

网 PRIN "| 二---- 寺 -一 
418 RETURN 


这 样 处 理 是 因为 制 表 中 不 止 一 次 要 用 到 如 上 的 画 线 ， 而 
用 子 程序 的 方法 使 程序 更 为 简洁 方便 。 程 序 中 392 句 的 功能 
同上 。 

(4) 为 了 完成 下 半 部 制 表 任 务 ， 请 注意 它 不 仅 要 画 线 ， 
对 齐 ， 还 要 写 数据 ， 这 项 工作 由 330 一 394 句 的 程序 段 完成 。 
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请 注意 二 重 循环 中 语句 、 格 式 以 及 制 表 符号 的 安排 。 例 如 
340,360, 380 三 句 的 处 理 。 另 外 390 句 是 在 完成 全 部 报表 后 
要 加 的 一 个 报 尾 。 本 段 程序 是 整个 制 表 工 作 的 中 心 ， 格 式 很 
有 讲究 ， 几 乎 缺 一 不 可 。 程 序 段 见 H 19: 


]LI3T325,3% 


325 RENM H 雪 

330 [ 归 I=1T014 

348 PINT “| ”| 
3598 [ 豚 J=1T03 

368 PRINT 从 DJ | 
310 人 EN 

389 RPRINT 

39 IfI=4THEN PIN "一 上 一 一 二 一 一 
二 一 一 人: 60T0 39 

392 603 册 400 

394 全 人 

396 END 


说 明 : 

本 程序 基本 上 是 一 个 打印 表格 程序 的 模型 ， 类 似 的 报表 
程序 原则 上 照 此 办 理 , 如 果 数 据 更 多 ， 可 以 改变 循环 的 终 值 ， 
相应 的 数据 以 及 增加 画 线 格式 的 长 度 。 完 整 的 程序 清单 〈 见 
H20) 及 运行 结果 : 


71 


]RUN 
各 到 和 
党 让 王 本 芝 | 


| 
上 tl2 | 


[2 | 148 | 150 1169 | 


13 | 26 | 210 | 24 | 


|4 1230 |248 250 | 
[二 -上 


]UST 


1 RE Hb 


4 隐 天 格 程 序 
5 RE 太 人 3) 
1 DIM 入 人 3) 


280 殉 从 1 129, 139 149, 150 168 
218 险 Th 299,219,220230) 240 250 


40 了 妥 IN ” 
310 PRINT “| 地 三 二 


320 6 用 40 


兴 芝 妆 窜 从 
允 耳 如 耳 
Ed=a 


究 这 
台秤 
让 


4 THEN 了 IMT“ 上 一 上 一 一 上 -一 


mm 

了 
ee 

2 一 之 


[ 


驴 之 客 启 
营 


3 


5. 通讯 录 


通讯 录 编 制 方法 比较 简单 ， 首 先 确 定 有 关 信 息 的 名 称 ， 
例如 姓名 、 人 性别、 城市 、 地 址 、 邮 政 号 码 、 电 话 号 码 等 ， 并 
把 它们 分 别 存 放 在 字符 串 变 量 A$ ，B$ ，C$，Dp$， 
E$ 和 Fd$ 中 ,然后 用 FOR /NEXT 循环 来 读 取 并 打印 。 

当然 ,这 些 信息 的 存 贮 ， 也 并 不 一 定 都 要 用 字符 串 变 量 ， 
例如 邮政 编码 全 是 数字 常数 ， 可 以 用 简单 变量 (如 X) 来 存 
放 。 但 中 文 汉字 必须 用 字符 串 变 量 来 存 贮 。 

READ 和 DATA 语 句 必 须 配对 ,在 从 键盘 敲 入 DATA 
区 的 信息 时 ， 应 该 特别 小 心 ， 一 个 标点 符号 的 失误 ， 将 会 使 
许多 信息 出 现 错误 。 

DATA 区 中 的 字符 串 信 息 ， 按 基本 BASIC 规定 ， 必 
须 加 引号 ， 如 “ 王 申 ” 等， 但 在 APPLE 机 和 中华 学 习 机 
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以 及 相 兼 容 的 紫金 下 中 ， 引 号 可 以 省 去 。 有 些微 机 ， 例 如 


P C 


-1500, 使 用 DATA 语 名 时， 字符 串 必 须 加 引号 。 


为 了 使 通讯 录 具 有 查找 的 灵活 性 ， 可 以 安排 一 个 查找 的 


程序 段 , 例如 输入 一 个 数值 [， 打 印 出 对 应 于 工 的 串 变 量 ( 如 
Ad$(I),Bd$(I),…) 的 值 。 


根据 上 述 分 析 ， 我 们 容易 写 出 通讯 录 程 序 H21: 


]LIST 
2 REN H1 

5 RE 通讯 录 

f RE 0 

8 REH 旭 名 (的 ) 性 别 球 ) 城 市 (9) 地 址 (元 )， 
邮政 溃 码 (F$), 电 话 号 得 (F)” 

所 DT 秀 (28)， (9 (和 (29》 (49)7ES(5》 FF 和 


如 [ 豚 I=1? 

3 R 各 角 ([j)， 于 (T)， ( 避 ] 于 ()E4()F 斩 了 
物 .PRINT ”5 俘 ( 人 入” 0 ) 

8 PINT 乓 代 3” 0 和 了 

6 PINT E 轻 了 ”于 和 了 

的 


8 的 王 由 男 ,北京 , 山 路 145 号 ,13421658 
时 1 宏 , 男 ,南京 ,北京 西 路 214 号 199345 
二 这 作风 天 漳 ,上溯 809 23 
刘 是 针 ， 男 北京 ,王府 井 ? 号 ,123235,7723 


128 只 f 雷 硕 , 男 ,西安 ,浙江 路 535 号 ,65331, 18 
421-50” 


138 PRINT : PRINT 

149 INPUT “TI="5 

158 IFI= -1THEN 29 

160 PRINT 钥 (T)” ”38$(T)3 ”人 T)7 

178 PRINT 天 (IT)3” ”3E$T)” ”5F 和 IT); 

175 PRINT 

188 60T0 140 

298 END 

可 见 编制 通讯 录 程序 的 方法 比较 简单 ， 其 主要 思路 是 ; 

开辟 一 定 的 数组 ; 

。 用 循环 读 取信 息 ; 

。DATA 语 句 存放 记录 ; 

。 用 打印 语句 输出 ; 

。 用 简单 方法 查找 。 

变量 设置 ， 

A$ (TI) 一 一 存放 姓名 ; 

B$(I) 一 一 存放 性 别 ; 

C$ (IT) 一 一 存放 城市 名 称 ; 

D$ (1D) 一 一 存放 地 址 ; 

E$(I) 一 一 存放 邮政 编码 ; 

F$ (I) 一 一 存放 电话 号 码 ; 

I 一 一 循环 控制 变量 。 

几 点 说 明 : 

。10 句 是 开辟 数组 ， 本 程序 以 5 个 通讯 录 为 例 ， 名 字符 
串 变量 的 下 标 要 合适 ， 例 如 它们 都 不 得 小 于 5 ， 否 则 出 错 。 
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如 果 存 贮 信息 较 多 ， 则 数组 下 标 应 大 于 存 贮 信息 的 数目 。 

。20 一 70 句 是 一 个 循环 ， 目 的 是 自动 循环 读数 ， 由 于 采 
用 字符 串 变量 ， 则 经 过 循环 后 ， 各 种 信息 就 存 贮 在 相应 的 字 
符 串 变量 中 ， 例 如 A ( 3 ) 中 存放 李 铭 这 两 个 字 ， 这 样 处 理 
为 检索 为 准备 。 循 环 变量 的 终 值 应 根据 实际 存 贮 信息 的 个 数 
而 定 ， 本 例 是 5。 

“ 为 使 程序 更 加 灵活 ， 可 以 加 一 句 15， 即 ONERR 
GOTO 130， 这 样 安排 好 处 很 多 ， 一 是 DATA 区 的 信息 可 
“以 随意 增 减 ， 可 以 随时 增加 信息 ， 也 可 以 随时 删除 记录 ， 但 
终 值 可 以 取 大 一 些 , 例 如 100; 二 是 防止 出 错 ， 例 如 终 值 取 100 
后 ， 信 息 可 以 少 于 100, 而 不 会 发 生 无 数 可 读 的 情况 。 

“。 本 例 的 检索 〈 又 称 查找 ) 方法 最 为 简单 ， 利 用 140 句 
键盘 输入 一 个 数 〈 本 例 是 1,2,3,4, 5 ) ,就 可 以 查找 到 顺序 存 
贮 在 DATA 语句 中 的 信息 ， 而 工 取 - 1， 则 结束 本 程序 ， 
这 里 I = - 1 就 是 程序 的 终止 标志 。 


下 面 是 程序 运行 的 实例 : 
卜 WN 


1 王 ' 申 男 
北京 韶山 赂 145 号 13421 658425-376” 


2 程 实 男 
南京 北京 西 路 214 号 196345 634651-28 人 


3 李 铬 男 
天 津 上 海 西子 路 868 号 234251 776821-45" 


兴 


4 常 华 男 
北京 王府 井 ? 号 123235 772351-33 
5 雷 每 男 
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西 窑 浙江 路 535 号 65331 189421-56” 


自 
男 北京 韶山 路 145 号 13421 658425-376” 
吾 男 天 津 上 海 西子 路 868 号 234251 776821- 


-5 

备 老 男 西安 浙江 路 535 号 65331 166421-56" 

= 

洛 男 王府 牛 导 123 和 7251 3 

宏 男 南京 北京 西 路 214 号 168345 634651-28 

世 

上 面 介 绍 的 通讯 录 程 序 ， 检 索 方法 简单 但 不 够 灵活 ， 同 
时 程序 编制 比较 呆板 ， 没 有 创新 。 现 在 ， 我 们 再 列 出 一 个 通 
讯 录 程序 ( 见 H21 一 11) ,并列 出 它 的 部 份 结果 。 关 于 这 个 程 
序 的 详细 说 明 ， 我 们 把 它 放 在 情报 检索 一 节 中 介绍 。 应 该 指 
出 的 是 30 一 240 句 是 一 个 非常 有 用 的 子 程序 。 

]HST 


1 REN H21-1 

20 REN SEARCHIN PROGR 价 
38 DIM 各 (10) 

4 ONER 60T0 10 

2 f 妥 J=1T70 押 

的 R 和 种 (J) 

人 此 厅 可 
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78 


物 耻 JNT 


18 
110 


150 
| 
108 


INPUT 下 
IF 下 = THEN 248 


[中 1I=1T0 LEN (名 (J))》- LEN ( 球 ) + 
下 球 人 》 队 咒 《( 损 (J)T LEN (下 ) 入 


N 190 


110 


PRINT 球 汪 No 和“ 训 
PRINT “ 洒 ” 隐 人) 
人 EXT ] 


198 
王 申 男 北京 韶山 路 145 号 13421 6 


58425-310 


218 


只 程 宾 男 南京 北京 西 路 214 号 198345 


034051-281 


2 人 


DhTf 事 铬 男 天 津 上 海 西 了 路 868 号 234 


251 776 人 21- 的 


290 
51- 
300 


DhTh 常 华 男 北京 王府 提 号 123235 7723 


3 
DhNTh 雷 稀 男 西 窑 浙 江 路 535 号 65331 1 


680421-56 


北京 韶山 响 145 号 13421 658425-376 


总 池 站 全 这 


南京 北京 西 路 214 号 168345 634651-2 


这 


南京 北京 西 路 214 号 108345 634651-2 


ER 
mr 


198 No: 2 
* 程 宏 男 南京 北京 西 路 214 号 198345 634651-2 
8 


168 No: 5 
+ 雷 各 男 西安 浙江 路 535 号 65331 189421-56 
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运行 结果 表明 ， 该 程序 检索 方法 灵活 多 样 ， 既 可 以 输入 
汉字 也 可 以 输入 数码 〈 实 际 上 如 果 DATA 语句 中 存放 英语 
或 汉语 拼音 也 可 以 查找 ); 既 可 以 输入 几 个 字符 也 可 以 仅仅 输 
入 一 个 字符 ， 都 可 以 查找 到 有 关 信 息 。 

例如 ， 程 序 运行 后 出 现 ? 在 中 文 状 态 敲 入 一 个 “ 京 ? 字 ， 
它 就 可 以 同时 查找 到 籍贯 为 北京 ， 南 京 的 所 有 人 的 信息 。 

又 如 ， 一 个 名 叫 常 华 的 人 ， 他 的 电话 号 码 为 772351-33， 
而 要 查找 他 的 情况 ， 只 要 输入 -33, 即 可 ，-33 是 772351-33 中 
的 几 个 字符 。 

不 仅 如 此 ， 本 程序 可 以 任意 查找 ， 例 如 ， 只 记得 雷震 同 
志 家 庭 地址 是 535 号 ， 那 么 输入 535 号 ， 即 可 查找 他 的 全 部 
通讯 录 内 容 。 

读者 可 以 反复 运行 本 程序 ， 用 各 种 最 简单 的 方法 进行 查 
找 ， 从 而 体会 本 程序 的 许多 优点 。 

特别 是 改动 DATA 区 信息 后 ， 本 程序 可 以 用 这 一 切 情 
报 检索 的 地 方 。 


6. 日 历程 序 


设计 一 个 程序 ,. 打印 1988 年 日 历 表 ， 要 求 按 表 2.6 和 表 
2.7 两 种 形式 打印 : 
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表 2.6 
]RUN 


〈《--1988--》 
《1》 


31 
《2》 
9 1 2 3 4 5 6 
SUN MON TUE UMD THU FRI SRAT 
1 2 3 4 5 6 
7 8 9 1 1 12 13 
14 15 16 17 18 19 29 
21 22 23 24 25 26 27 
28 ”2q 
表 2.7 
〈--1988--) 


星期 日 星期 一 星期 二 县 央 三 是 全 人 显 规 五 星期 六 


SUN MON TUE UED SAT 
2 

3 4 5 6 了 8 9 

19 11 12 13 14 15 16 

17 18 19 26 21 22 23 


24 25 26 27 28 29 36 
31 


《2》 
蛙 期 日 星期 一 垦 期 二 星期 三 星期 四 星期 五 星期 六 
SUN MON TUE MD THU FRI SRT 


1 2 3 4 5 6 
了 8 9 16 11 12 13 
14 15 16 虐 18 19 26 


21 22 23 24 25 26 27 
28 29 


分 析 : 

我 们 首先 分 析 第 一 种 日 历 表 的 设计 方法 。 

(1) 打印 1988 年 表 头 ， 这 个 工作 最 为 简单 ， 用 字符 串 原 
样 照 印 语 句 ， 再 配合 定位 的 TAB (和 ) 困 数 ,如 : 

PRINT TAB(15);“<< 一 一 1988 一 一 >” 

(2) 设置 1988 年 元 月 一 日 是 星期 几 的 语句 ， 因 为 打印 一 
个 日 历 ， 总 是 从 元 旦 这 一 天 开始 的 ， 如 1988 年 1 月 1 日 是 星 
期 五 , 可 以 用 赋值 语句 N = 5 处 理 。 也 可 以 安排 一 个 INPUT 
语句 ， 输 入 任意 一 年 元 旦 是 星期 几 的 数字 ， 这 样 可 以 打印 任 
一 年 日 历 。 

(3) 为 简化 程序 设计 ， 省 去 对 润 年 的 判断 ， 例 如 ，1988 
年 是 润 年 ， 故 2 月 份 应 为 29 天 ， 将 此 数据 放 在 DATA 语句 
中 。 其 它 月 份 的 天 数 也 按 实际 月 份 的 天 数 处 理 。 即 DATA 
31，29，31，30，31，30，31，31，30，31，30，31。 按 1 
到 12 月 的 天 数 顺 序 存 放 。 

(4) 印 每 月 日 历 表 的 表 头 ， 包 括 三 项 内 容 : 注 明月 份 ; 
列 印 星期 (用 0,1,2,3,4,5, 6 代替 ); 打印 对 应 的 英文 缩写 
(如 星期 日 为 S UN, 星期 一 为 MON，……. , 星期 六 为 3 AT )。 
这 三 项 内 容 均 可 用 PRINT 语 句 和 工 AB 函数 来 定位 。 考 虑 
到 这 几 项 内 容 在 每 月 都 要 打印 ， 显 然 放 在 月 份 的 循环 语句 中 
比较 方便 ， 用 工作 为 循环 控制 变量 ， 记 取 月 份 (1 到 12)。 
如 : 

]L3T3070 

3 FRI=1T012 


个 了 INT 
踢 PINT 了 秀 ( 19) PRINT 


82 


0 PRIN ”6 1 2 3 4 93 和 
7 PRINT ”SN WON TE WED 本 FRI IST 


180 NEXT 


(5) 印 每 月 日 历 表 ， 这 是 整个 程序 设计 的 关键 。 用 一 个 
循环 来 控制 ， 循 环 控制 变量 取 丁 ， 它 是 记 日 数 的 ， 容 易 想 到 
循环 总 是 从 每 月 第 一 天 开始 ， 到 该 月 的 最 后 一 天 结束 ， 因 此 
循环 变量 的 初 值 为 1， 终 值 为 M，M 是 一 个 工作 单元 ， 分 别 
为 各 月 的 天 数 。 为 使 程序 自动 运行 ， 天 数 的 读 取 用 READ 
语句 处 理 ， 显 然 READ M 应 放 在 外 循环 之 中 〈 工 循环 ), 且 
安置 在 内 循环 之 外 〈J 循 环 )。 

为 了 在 相应 的 位 置 上 列 印 日 期 数字 , 定位 是 至 关 重 要 的 ， 
特别 是 元 月 一 日 这 一 天 应 放 在 星期 五 (FRI 下面 的 位 置 上 ， 
经 计算 用 PRINTTAB(5X(N+-1));J; 语句 处 理 ， 
为 了 使 其 它 日 期 也 能 正确 定位 ， 程 序 中 安排 了 一 个 计数 器 : 
N=N+1， 只 要 N<= 6 就 再 循环 打印 ， 并 不 断 计数 ， 而 
当 N > 6 时 ， 则 应 让 计数 器 置 零 CN = 0) 并 换行 ， 这 样 ， 
就 能 使 星期 日 打印 正确 的 数值 。 当 一 个 月 所 有 天 数 都 打印 完 
毕 后 ， 还 应 使 计数 器 置 零 。 列 印 日 期 的 主要 程序 段 为 ; 

]LIST166, 148 

1 的 FJ=1T0H 

118 PRINT TAB 5 二 人 + 人) 了 
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126N=Nt+l 

138 NC =6THEN 1590 

149N= 全 限 INT 

5 NEXTJ 

(6) 程序 结构 和 变量 说 明 ， 整 个 程序 用 两 重 循 互动 行 ， 


外 循环 读 月 份 ， 用 工 做 外 循环 控制 变量 ;内 循环 记 日 数 ， 用 
J 作 内 循环 控制 变量 。N 既是 记录 某 日 在 一 周 内 的 序号 ， 表 
示 星 期 几 ， 又 作为 计数 器 。M 为 每 月 天 数 ， 它 供 作 内 循环 的 
终 值 。 
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至 此 ， 整 个 程序 设计 完成 ， 清 单 见 本 22: 
]HUST 


2 RENM H2 

5 PRINT : PRINT 

折 限 INT 枯 ( 1 -1988-- 六 

20N=9 

3 F[ 妥 1=1T0 人 2 

伯 了 INT 

5 PRINT T 解 ( 19 (3 ) PRINT 

0 PRINT” 0 123 4 5 人 
1 PRINT ”SUN MON TIE WO TU FRI SNT 
中 RE 各 晴 

物 只 衣 3b293b30313031319 30313631 
199 f 腿 J= 1T0H 

1 多 PRINT (5 将 人 二 车 3 

120N=N+1 

138 IN =6OTHEN 198 

149N = 6: PRINT 

150 NEXT J 


168 IFN=0THEN 188 


116 PRINT 

188 NEXT 了 

19 END 

现在 ， 我 们 再 来 分 析 第 二 种 格式 的 日 历程 序 设计 。 

从 表面 上 看 ， 只 要 将 60 句 的 6 0 人 ov 6 2 改 
成 “星期 日 2,“ 星 期 一 ”%……, 星 期 六 ”。 实际 上 并 不 那么 简 


单 。 主 要 原因 在 于 换 成 汉字 信息 后 ， 日 期 不 能 正确 对 齐 。 

中 华 学 习 机 在 西 文 和 中 文 状态 下 ， 打 印 格式 有 很 大 的 差 
别 ， 在 英文 状态 下 ， 一 个 字符 占 一 个 格子 〈 一 个 字 节 ); 而 中 
文 状态 下 ， 一 个 汉字 占 两 个 格子 〈 二 个 字 节 )。 这 样 ， 在 中 英 
文 混合 状态 时 ， 用 TAB ( X ) 函 数 定位 不 易 处 理 。 再 说 ， 中 
文 状态 下 ， 一 般 每 行 处 理 17 个 汉字 ， 或 者 说 34 个 字符 ， 因 此 
是 以 34 为 模 的 ， 因 此 第 一 种 格式 的 日 历程 序 要 作 适 当 改 动 。 

。 元 月 一 日 放 在 X=7X 关 (CN+1) 一 A 的 位 置 上 ， 开 
始 A=0,N=5， 所 以 X=42， 这 个 位 置 定 的 正确 ，TAB 
函数 第 一 次 超过 34 时 ， 可 以 执行 。 它 是 定 在 星期 五 (N=5) 
的 下 面 。 计 数 器 加 1 后 W= 6， 此 时 应 安排 A = 34， 循 环 上 
去 后 X= 7 兴 (N+1)-A = ， 关 (6+1) 一 34 =49 一 
34=15，TAB (X)=TAB (15), 就 打印 在 星期 六 的 下 面 。 
所 以 在 程序 中 要 安排 条 件 语 名 ,IFN 之 = 5 THEN A= 
34。 

. 对 星期 日 的 对 应 日 期 处 理 , 应 在 N> 6 以 后 , 设置 N = 
0:A=0 :PRINT， 这 样 处 理 是 因为 星期 日 (N = 0) 总 
是 在 表 的 最 左边 ， 它 是 第 7 个 位 置 上 ， 故 X= 7 关 (CN +1) 
--A=7 关 1 一 0=7。 
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所 以 ， 为 了 在 中 英文 混合 状态 下 ， 正 确 打印 文中 开头 提 


到 的 第 二 种 格式 ， 必 须 在 第 一 个 程序 的 基础 上 ， 加 以 下 条 件 
及 赋值 语句 ， 它 们 是 : 
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]LST193， 140 


] 妆 下 J=1THNN=0 

1 的 X=7# 人 (Nt+1) - 

125 IFN》=5THNN=34 

138 IFN《C =6THN 190 

1N=6h=0: 了 RINT 

第 二 种 日 历 打印 格式 的 程序 清单 〈 见 开 23 ) 和 全 部 运行 


jLIST 


2 RH 

4 REM 日 历程 序 1 

5 限 INT : PRINT 

18 PRINT TRB( 22)7(--1988-- 六 

20N =5 

3 F 限 I=1T0] 

和 有 IN 

中 PRINT TB 人 263( 5) PINT 

星期 日 星期 一 星期 二 星期 三 星期 四 星期 五 


) 坟 八 

人 了 IN” SN MIN PE WE 例 PR 
9 

窒 和 各 

物 只 放 32933931 30 3 3 30 3 30,31 

1 的 F 银 了 = 二 TQH 

1 IJ=1TENN=6 


1 的 = 了 (Nt+ 1 -他 
118 PRINT T 和 (淮河 ; 


120N=N+1 

125 IFN》=5THNN=34 
1 IN =6THEN 19 
149N=6h= 06: PRINT 
150 NEXT J 

108 IFN=86THEN 188 
170 PRINT 

180 NEXT I 

1% EN 


]RUN 
(--1988--) 


本 星期 一 全 全 昌 期 三 星期 四 星期 五 星期 六 


MON UED THU FRI SAT 

1 2 

3 4 5 6 了 8 9 
16 11 12 13 14 LS 16 
17 18 19 28 21 22 23 
24 25 26 27 28 29 36 


星期 日 星期 一 星期 二 昌 期 三 星期 四 星期 五 星期 六 
SUN MON TUE WuWD THU FRI SRhT 
4 


] 2 3 5 6 
了 8 9 19 11 12 13 
14 15 16 17 18 19 28 
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《3) 
星期 日 星期 一 星期 二 姐 期 三 星期 四 星 各 下 星期 六 


SUN MON TUE WED THU SAT 
1 2 3 5 
6 了 8 9 19 11 12 
13 14 15 16 17 18 19 
26 21 22 23 24 25 26 
27 28 29 368 31 
〈4》 


星期 日 星期 一 星期 二 星期 三 星期 四 星期 五 星期 六 
SUN MON TUE MD THU FRI SAT 


1 2 
3 4 5 6 了 8 9 
16 11 12 13 14 15 16 
17 18 19 28 21 22 23 
24 25 26 27 28 29 368 


(5》 
星期 日 垦 期 一 星期 二 垦 期 三 星期 四 旦 期 五 星期 六 
SUN MON TUE MD THU FRI SAT 


1 么 3 4 5 6 民 
8 9 19 11 12 13 14 
15 16 17 18 19 28 2 
22 23 24 25 26 27 28 
29 38 31 

《6》 


星期 日 星期 一 星期 二 星期 三 星期 四 星期 五 星期 六 
SUN MON TUE WED THU FRI SRT 


1 2 3 | 
5 6 这 8 9 19 11 
12 13 14 15 16 17 18 
19 29 21 22 23 24 25 
26 27 28 29 38 
《7》 


星期 二 星期 三 星期 四 星期 五 星期 六 
SN ON TUE uED THU FRI SRT 


1 之 
3 4 已 6 了 8 9 
16 11 12 13 14 15 16 
17 18 19 20 21 22 23 
24 25 26 27 28 29 39 


31 


(8)》 
星期 日 星期 一 星期 二 星期 三 
SUN MON TUE 山 ED 


1 2 3 
了 8 9 19 
14 15 16 17 
21 22 23 24 
28 29 38 31 
〈《9) 


星期 日 明 期 一 星期 二 星期 三 
SUN MON TuUE wkED 


4 5 6 了 
11 12 13 14 
18 19 28 21 
25 26 27 28 


(19) 
星期 日 星期 一 星期 二 星期 三 
SUN MON TUE ucp 


2 3 4 号 
9 19 11 12 
16 ] 允 18 19 
23 294 25 26 
36 31 


《11》 
量 期 日 垦 期 一 星期 二 星期 三 
SUN MON TUE ucD 


1 2 
6 了 8 9 
13 14 15 16 
26 21 22 23 
27 28 29 36 


〈《12》 
星期 日 星期 一 星期 二 星期 三 
SUN MON TUE  uED 


4 5 6 7 
11 12 13 14 
18 19 28 21 
25 26 27 28 


星期 四 本 二 星期 六 


THU 


SRAT 
5 6 
12 13 
19 26 
26 27 


星期 四 要 汪 二 星期 六 


THU 
1 
8 
15 
22 
29 


SRT 
人 3 
9 18 
16 17 
23 24 


36 


星期 四 星期 五 星期 六 


THU 


6 

13 
28 
27 


FRI SAT 
1 
了 8 
14 15 
21 22 
28 29 


星期 四 星期 五 星期 六 


THU 
3 
1 
17 
24 


FRI SAT 
4 5 
11 12 
18. 19 
25 26 


星期 四 星期 五 星期 六 


THU 
1 
8 
15 
22 
29 


FRI SRT 
2 3 
9 16 
16 17 
23 24 
38 31 


89 


7. 分 数 段 


这 是 一 个 多 功能 的 检索 统计 程序 , 以 查找 学 生 考分 为 例 ， 
主要 功能 如 下 ; 

“. 打印 全 部 考生 信息 。 包 括 准 考证 号 码 (NO) ,姓名 
(Name),6 门 课 成 绩 (为 简单 计 6 门 课程 分 别 用 1,2,3,4,5， 
6 作为 代号 ), 各 门 课程 总 分 (TOL) ， 平 均 成 绩 .(AVE) 以 
及 名 次 (ORDER)。 程 序 运行 后 ， 即 可 以 打印 全 部 考生 (本 
例 为 8 人 ) 考试 情况 的 报表 。 

。 有 菜单 提示 ， 它 既是 本 程序 操作 方法 的 说 明 ， 也 是 本 
程序 检索 功能 的 说 明 ， 主 要 有 : 

(1) 输入 准 考证 号 码 (NUMBER)， 查 找 该 生 全 部 
信息 ， 包 括 准 考证 号 码 、 姓 名 、 各 科 成 绩 、 总 分 、 平 均 分 。 

(2) 输入 姓名 (NAME)， 查 找 该 姓名 考生 的 成 绩 情 
况 。 

(3) 输入 准 考证 号 码 (NO) ,查找 该 生 总 分 。 

(4) 输入 分 数 (S ) ,查找 超过 该 分 数 人 员 的 情况 , 包括 
准 考证 号 码 、 姓 名 和 总 分 ， 并 统计 出 大 于 等 于 该 分 数 的 人 数 。 
此 项 功能 特别 适用 于 招考 学 校 确定 分 数 线 的 依据 。 

(5) 输入 5 ， 计 算 机 列 出 各 分 数 档 人 员 数 ， 如 400 一 499 
分 有 5 人 ，500 一 599 分 有 3 人 等 等 。 

(6) 输入 6 ， 结 束 。 

。 全 部 程序 实现 总 控 , 可 以 灵活 地 进行 各 种 功能 的 检索 ， 
既 可 以 顺序 查找 ， 也 可 以 前 后 任意 搜索 ， 对 于 数据 区 中 没有 
的 信息 ， 会 显示 有 关 信 息 ， 如 WITHOUT” 没 有 ,“ NOT 
FOUND” 找 不 到 等 ， 并 可 以 自动 返回 总 控 再 找 ， 总 控 的 提 
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示 信 息 为 “并 ” 

“所 有 检索 均 有 中 文 提示 ， 这 给 管理 人 员 带 来 方便 。 

程序 分 段 说 明 : 

“程序 运行 后 ， 出 现 ?， 此 时 从 键盘 输入 8 ，6 ， 即 
可 打印 一 个 统计 表 (TON Ji Biao)。 

* 信息 存 贮 ， 由 8 一 110 句 完成 ， 采 用 两 重 循环 ， 外 循 
环 读 取 准 考证 号 码 CN(I))， 考 生 姓名 (A$ ( 1) )， 内 循 
环 读 取 考 生成 绩 ， 放 在 A 〈L, J) 中 。 

“ 排序， 由 200 一 280 句 完成 ， 是 以 总 分 高 低 ， 从 大 到 
小 排列 ， 凡 是 不 满足 这 个 条 件 的 ， 就 交换 ,注意 准 考证 号 码 、 
姓名 、 各 科 成 绩 、 总 分 、 平 均 分 都 要 同时 交换 ， 否 则 张 冠 李 
戴 ， 排 序 是 采用 枚 举 法 。 

“ 打印 统计 表 ， 由 285 一 465 句 完成 ， 全 部 格式 按 西 文 
要 求 处 理 。 

“菜单 提示 ， 由 590 一 612 句 完成 。 

, 总 控 ， 由 620 一 650 句 完成 。 

“ 输入 准 考证 号 码 查找 该 生 各 科 考 分 ， 由 700 一 790 句 


“ 输入 姓名 查找 该 姓名 考生 成 绩 情 况 ， 由 800 一 895 名 


“ 输入 准 考证 号 码 查找 总 分 ， 由 900 一 945 名 完成。 
“ 输入 分 数 查 找 超过 该 分 数 人 员 情 况 ， 由 1000 一 1080 句 


' 键盘 输入 5 ， 计 算 机 自动 列 出 各 分 数 段 人 员 数 目 ， 
由 1110 一 1260 句 完成 。 
“ 键盘 输入 6 ~ ， 执 行 650 句 结束 。 
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程序 中 的 中 文 提示 间接 地 说 明了 程序 的 流程 ， 又 便 隆 程 
序 管理 。 


运行 实例 和 完整 的 程序 清单 〈 见 H24)， 


JRUN 

?8,6 

有 Ton Ji Biao-------- 

NOT Nase 人 1 1 2 3 1 9 15S ! 上 65 1 TOL ! PRwE 1 ORDERI 


1 353T JES TE 15659 181 192 1698 183 145I 105 18 


RAR1I TONG JI 1 669 !1 645 1 641 1 634 1593 上 7965 1 3887 1 65648 
1.INPUT NUMBER :输入 准 考 证 号 码 找 该 生 各 科 考 分 
2.INPUT NRME :输入 姓名 

3.INPUT N0 :输入 准 考证 号 码 找 总 分 

4.INPUT 3: 输入 分 数 找 超 过 该 分 数 人 员 情 况 

5.INPUT SCDRE 输入 分 数 自 

6. 输 入 6 结束 


地 1 
NUMBER : 输入 准 考 证 号 码 找 次 生 各 科 考 分 721 
7 了 721 CHANG 83 67 96 95 87 98 526 88 
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#2 
NAME :输入 姓名 SHEMO 
SHEHM0 892 88 7 了 7 65 43 91 98 454- 76 


MO; 本 入 准 考证 配 码 捷 总 分 453 


3 畏 入 分 娄 拓 起 过 吉 分 数 人 民情 况 458 
9 SMITH 5 
721 CHANG 26 
947 HEIEN 521 
354 CHENG 489 
471 JIARNG 462 
892 SHEMO 454 
652 CHIEN 452 
453 JONES 451 


>=450:8 


HS  - 

分 数 段 
166---199 
268---299 
3ae- --399 
q88---499 
500-- -599 
688---699 


一 wmGee 


#6 
END 


LST 2724 


] 

2 RN H24 

5 RE 分 数 自 
8 CELE 角 

9 REMH 输入 8)6 
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INPUT RH 

5 RE 六 DJ): 放 信息 
人 二 
25 RE NI): 放 
| 


< 性 2 
全 
-Ha 
了 Ht 
怪 
SF 
[> 


=1T0N 
MI) 的 (]) 
的 F 银 J= 1 TD 
了 和 各 碎 I 
吗 胡 JE+ 人 
+ 2) 


T 
有 
) 
9 六 ID + 2 = 


入 了 + 1 
INT 《入 


JJ 人 + 1)》 THEN 270 
: 衣 了 + = 了 人 兴 


232F = 让 T 二 2) 访 了 放 +2) = 成 了 作 +2) 汉 
二 站 + 人 = 
235 8 = 人 抽 
248 各 = 多 人 


2 人 5 PRINT CHRS (27) + 有 + OHR 《5) 
2 从 POKE 1657) 8 
298 PRINT Th 260) 一- Ton Ji Bia0--- 


----- ”PINT 

291 609 册 450 

29 PRIN NITNane | 1 1 2 13 
14 15 16 1TL LEAHE IORIE 
R” 

29% 60UB 456 

30% F 妥 ITI=1T0N 

365 PKE 1529,255 

318 PRINT “7 江 312” 且 前 (天 1 
320 FIRJ=1T0N+2 

336 PRINT 入 TD 

348 NEXT 

358 了 INT 了 

355 了 INT 

356 PUKE 1529,0: PRINT 

358 609UB 450 

368 EXT 

318 PRINT CHR 21) + 的 + CHR (5); 
375 PRIN ”1 TON 可 呈 


4 FIRJ-1T0N+ 2 
4 FRI=1TTON 

429 RN+ 了 JJ) = RN + 二 J) + AD 了) 
人 6 NEXT 


448 限 INT ”RN + JJ) 5 NEXT 
445 妥 INT : 605 册 459: 60T0 465 
全 限 JNT 1- 


5 RETURN 
465 PRINT OHR (27) + 全 + CHR (2 


58 0 人 JR 87,93, 59469,74 
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510 DT 354,CHEN6;,948182，7359,91 
528 NT 721 CHANG6 83079095 87) 各 
538 DAT 652,CHIEN, 6006887815793 
546 只 衣 892,SHEND 侣 77 605,43,91 90 
550 DhTA 239,SHMITH, 90,93,8789,9587 
568 DT 453，JONES66) 69,8192,0083 
9598 脸 T 肌 一 94PHEIEN95)97798,07)75,89 

588 PRINT : PRINT 

599 PRINT “1.INPUT NUNMBER: 输 入 准 考证 号 色 找 
生 各 料 考 分 ” 


595 PRINT “2.INPUT NAME: 输 入 姓名 " 
698 PRINT “3.INPUT NO: 输 入 准 者 证 号 得 技 总 分 " 
人 “4.INPUT 3: 输 入 分 数 拔 超 过 该 分 数 人 


616 PRINT “5.INPUT SCDRE 输入 分 数 段 ” 

612 PRINT ”6. 输 入 6 结束 " 

0 RRINT : 耻 JNT 

620 JINPUT 和 淹 

636 呈 遇 603UB 799860900 1900 1119;056 
040 60T0 620 

658 PRINT END”: END 

人 .RU YNER 考证 9 有 和 


fl FRI=1TON 

720 IF NI)=PTHEN PRINT NI)3 ”5 和 (7; 
”0T0 756 

738 NEXT 

7 限 INT ITHOUTI ”5p: PRINT : 60T0 79 
0 

758 F 妥 ] 0N+2 


7” 


= 1 
76 PRIHNT 入 DJ 


798 RETURN 

898 INPUT ”NME: 输 入 奸 名 "ijk$ 

8 FRI=1TON 

828 于 的 (ID) = 作 THEN 了 INT 的 () T)” “NI 


895 PRINT : RETURN 
98 INPUT "0: 坎 人 闪 才 证 胡 拓 人 i 

9 FI= 1T0 

920 IF NI) = 站 PRINT NKI);”---”5(， 
7): 60T0 945 

938 NEWT 

948 PRINT MOT FOUNDI 

945 RETURN 


1900 k- 0: INPUT ”S: 输 入 分 数 拔 超过 该 分 数 人 


有 kt+ 1: 耻 INT 
”5 了 7) 


10945 PRINT 
1078 PRINT “>= 5 和 水 
1089 RETUNN 
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1118 PRINT ”分 数 段 " 

11p 8=082=08=034=0B=0B = 
8 

1120 FRI=1T0N 

11300= IN (AID7) 19) 
1148 ON 60S 邮 1155) 1169,1170 1180, 1190,11 
9 

1150 NEXT 

1153 60T0 12 的 

1155 B1 = 了 + 1 RETURN 

1100 了 = 了 +1:RETURN 

1170 了 = 了 +1:RETURN 

118 到 = 到 +1:RETURNN 

11% 卫 = 了 +1: RETURN 

1 的 了 = + 1: RETURN 

1209 限 INT“1090---199””“ 吕 1 
1218 PRINT 200---299 ”2 
1220 PRINT “3---399 ”下 
1238 了 INT 1460---49” ”4 
1248 限 IMT 500---599 ”了 5 
1254 耻 I "000---69””“; 肋 
1204 RETURN 


8. 评语 程序 


这 是 一 个 专门 为 中 小 学 班主 任 老师 编写 的 程序 ， 它 可 以 
在 很 短 的 时 间 内 完成 对 学 生 评 语 的 草拟 工作 ， 并 可 以 直接 打 
印 出 来 ,大 大 地 减少 了 书写 评语 的 工作 量 ,受到 了 许多 老师 的 
普遍 欢迎 。 

程序 编制 非常 简短 ， 使 用 也 极其 方便 ， 即 使 一 个 完全 不 
懂 计 算 机 的 教师 ， 只 要 稍 作 说 明 即 可 运用 自如 ， 工 作 效率 也 
很 高 ， 在 一 个 小 时 左右 的 时 间 内 ， 可 以 顺利 完成 对 40 一 50 和 名 
学 生 的 评语 草拟 工作 。 

程序 简要 说 明 ， 

(1) 5 一 40 句 为 第 一 段 ， 用 循环 的 方法 读 存 评语 信息 ， 
评语 共用 了 40 句 短语 ， 存 放 在 数组 A$ ( I ) 中 ， 每 个 评语 冠 
以 代号 ， 作 为 老师 在 做 评语 时 的 依据 。35 句 的 作用 就 是 在 程 
序 运 行 后 打印 出 所 有 评语 和 代号 ， 实 际 工作 时 ， 只 要 打印 出 
一 张 评语 代号 表 后 ， 保 存 起 来 ， 以 便 以 后 使 用 ， 而 可 以 删 去 
35 句 。 如 果 作为 表演 程序 ， 可 以 保留 35 句 ， 它 实际 上 是 一 个 
评语 菜单 提示 。 

(2) 50 一 120 句 为 程序 的 第 二 段 ， 也 是 本 程序 的 关键 程 
序 段 。 这 段 程序 要 求 老师 将 对 每 一 个 学 生 的 评语 ， 用 相应 的 
代号 存 入 300 句 开 始 的 DATA 语句 中 ， 每 一 个 学 生 用 一 个 
DATA 语 句 ， 而 在 DATA 语 句 的 结尾 放 一 个 “0 ”标记 ， 当 
所 有 学 生 评 语 代 号 存放 完毕 后 ， 最 后 一 个 学 生 的 DATA 语 
句 结尾 放 “-- 1 ”标记 ， 表 示 结 束 。 程 序 运 行 后 ， 全 部 学 生 
的 评语 均 可 显示 在 屏幕 上 ， 也 可 全 部 分 别 打印 出 来 。 

(3) 程序 中 有 几 名 安排 技巧 ,一 是 第 2 句 安排 了 空 二 行 ， 
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目的 是 将 打印 纸 上 ]RUN 和 打印 结果 空 开 来 ， 保 证 打印 结 
果 美 观 ， 二 是 90 句 也 安排 了 三 个 PRINT 语 句 ， 这 样 使 前 后 
两 个 学 生 的 评语 空 开 三 行 ， 以 便 老 师 整 理 剪贴 ， 三 是 60 句 的 
设置 ， 防 止 出 错 的 自动 处 理 。 

(4) 本 程序 仅 写 了 40 句 评语 ， 可 以 根据 工作 需要 任意 增 
减 评语 数目 ， 相 应 的 循环 变量 的 终 值 也 应 作对 应 的 改动 。 

(5) 本 程序 虽然 是 一 个 草拟 评语 的 程序 ， 实 际 上 可 以 以 
本 程序 为 模式 ， 改 动 200 一 260 句 中 的 信息 内 容 ， 而 完成 其 
它 工作 的 草拟 工作 ， 例 如 可 以 作为 对 工作 人 员 的 工作 鉴定 ， 
人 事 介绍 信 ， 会 议 通知 ， 文 献 摘要 ， 甚 至 可 以 书写 文章 。 这 
样 ， 本 程序 设计 思想 可 以 为 许多 软件 编制 提供 思路 ， 只 要 存 
贮 足 够 的 信息 ， 就 可 以 大 大 减少 汉字 输入 的 工作 量 。 

操作 说 明 : 

(1) 程序 运行 后 ， 打 印 评语 和 对 应 代号 信息 ; 

]RUN 


二 
1 
上 


CIT1 -上 > SS 玉 > 一 
世人 -Ed 


一 症 宁 人 
泣 Ey 


5 到 


一 
乙 
一 


13--- 爱 清洁 
14--- 讲 D 生 
15--- 爱 好 文艺 活 动 
16--- 上 课 发 言 积极 
17--- 爱 好 体育 活动 
人 
20--- 能 条 加 学 校 活动 
21--- 义 明 礼 用 人 六 
22--- 不 能 遭 守 梳 纪 
23--- 革 习 不 认真 
3- 学习 丰 和 
25--- 不 受 动 甩 角 
26--- 工 作 不 主动 
27--- 不 太 关 心 集体 
28--- 不 能 团结 同学 
29--- 不 执 过 劳动 
30--- 作 业 过 上 
人 
32--- 不 安 清洁 
33--- 硕 望 今后 能 名 
34--- 帮 大师 长 
35--- 认 真 学 习 
36--- 团 结 同 这 
7 一 认真 作业 
站 
9--- 在 新 学 

时 和 拓 


(2) 输入 评语 的 方法 ,例如 ,老师 对 某 学 生 作 如 下 评语 : 
尊敬 师长 ， 学 习 认真 ， 爱 动脑 筋 ， 关 心 集体 ， 不 能 遵守 
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校 纪 ， 和 希望 克服 缺点 ， 好 好 学 习 。 
那么 ， 只 要 查 评 语 对 应 的 代号 ， 如 





1 一 一 尊敬 师长 ， 
3 一 一 学 习 认真 ， 
5 -一 一 爱 动 脑筋 ， 
7 一 一 关心 集体 ， 
不 能 遵守 校 纪 ， 


40 一 一 希望 克服 缺点 ， 好 好 学 习 。 

这 样 ， 只 要 在 340 名 的 DATA 语句 中 输入 以 下 信息 ， 
340 DATA 1,3,5,7,22,40， 0 

其 中 ，DATA 语 句 最 后 一 个 “0 ”标记 ， 既 表示 对 一 
个 学 生 草 拟 评语 的 结束 ， 也 表示 对 另 一 个 学 生 草拟 评语 的 开 


始 。 


完整 的 程序 清单 ( 见 H25》 和 6 个 学 生 品 德 评语 的 实例 ; 
]U5T 
2 REN H29 


4 耻 I : 
5 DT 的 (60 


] 


RE 学 和音 

职工 -1T 拘 

了 加 的 (]) 

限 INT Ji"---”; 前 (]) 

NEXT 

了 INT : 了 INT 

REM 输入 评语 < 2, 3， 49》 放 入 DAT6 中 
NE 了 60T0 1 

F 吕 IT 提 

RE 了 


9 下 X= 了 THN PRINT : PRINT : PRINT :6 
0 6 


% IfX= 本 END 

110 PRINT 般 (X 委 

120 NEXT 

209 0hTh 得 冤 师 长 , 音 守 校 纪 , 学 习 认真 ,学 习 比 


校 认真 ， 爱 动脑 角 
D8 放 工作 积极 ,关心 集体 ,团结 同学 热爱 劳 


308 险 f 用 25712380 

3 玖 T 也 328 4 

320 只 1 2 18 33 300 
338 只 放 和 PP203b300 
348 只 从 人 3 5 72722400 
398 只 用 08149027-1 
]RN 


草 守 校 纪 爱 动 爵 角 关心 集体 能 完成 作业 帮助 别 
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草 克 师长 学 习 认真 不 能 团结 同学 希望 克服 缺点 
好 好 子 习 


学 习 比 较 认 真 能 帮助 别人 希望 今后 能 


集体 文明 礼 独 不 够 不 能 按时 


工作 积极 团结 同学 作业 整洁 敢于 斗争 不 太 关心 


集体 
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三 .编程 方 法 


1. 流程 框图 方法 


学 习 BASIC 语 言 和 其 它 高 级 语言 FEORTRAN、ALG- 
OL、COBOL、PASCAL) 一 样 ， 最 终 目 的 都 是 要 编制 解 
决 实际 问题 的 程序 .语言 好 学 ， 程 序 难 编 光 这 是 一 部 分 初学 
者 经 常 谈 及 的 问题 。 对 于 一 个 实际 问题 ,常常 感到 无 从 下 手 ， 
不 知道 怎样 把 一 句 句 个 别 语句 、 函 数 、 表 达 式 组 成 一 个 完整 
的 程序 ， 不 了 解 应 如 何 设置 变量 ， 怎 样 安排 数组 ， 究 竟 用 那 
种 方式 输入 数据 ， 甚 至 在 选择 语句 时 不 知道 前 后 语句 如 何 安 
排 ， 程 序 如 何 连 接 ，…… 等 等 ， 诸 如 此 类 的 问题 。 因 而 ， 使 
一 部 分 同志 感到 程序 设计 变幻 莫 测 ， 高 不 可 攀 ， 其 实 ， 这 些 
顾虑 是 完全 不 必要 的 。 

人 们 在 处 理 问题 的 时 息 ， 常 常事 先 安排 好 解决 问题 的 步 
又 ， 同 样 ， 你 要 计算 机 来 解 题 ， 也 需要 用 计算 机 “ 听 得 懂 的 
语言 ”来 说 明 ， 要 它 干 什么 ， 不 能 干什么 ， 都 要 一 条 一 条 顺 
序 写 清楚 ， 只 有 这 样 ， 才 能 使 计算 机 执行 各 种 操作 ， 有 步 又 
地 完成 人 们 的 各 种 意图 。 人 们 写 不 清楚 的 问题 ， 计 算 机 就 无 
法 执行 并 可 能 给 出 错误 的 结果 。 对 实际 问题 缺少 完整 而 周密 
的 思索 ， 拿 起 笔 来 就 写 ， 不 讲 思路 ， 不 讲 技巧 ,不 考虑 算法 ， 
不 注意 语句 的 搭配 ， 程 序 前 后 的 连接 ， 语 法 规则 的 正确 使 用 
和 语句 功能 的 了 解 , 必然 导致 程序 难于 执行 ， 结 果 事倍功半 ， 
这 是 编程 困难 或 失败 的 根本 原因 。 
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程序 设计 有 它 自 己 特有 的 规律 ， 编 制程 序 是 一 个 创造 性 
劳动 ， 只 有 熟悉 程序 设计 的 规律 ， 努 力学 好 语言 ， 通 过 不 断 
的 实践 ， 程 序 设计 入 门 并 不 很 难 。 

我 们 这 里 主要 介绍 的 是 程序 设计 的 常用 方法 ， 即 所 谓 程 
序 流程 图 (FLOWCHART) 。 通 过 这 个 方法 的 介绍 ， 会 帮助 
你 通过 编程 “ 关 ?” 你 将 会 知道 ， 学 会 并 习惯 掌握 流程 图 (又 
称 框图 ) 方法 ， 是 通过 编程 关 的 捷径 之 道 。 

人 们 常 说 ， 会 画 框图 ， 就 会 编程 序 ， 这 是 类 有 道理 的 。 
事实 上 ， 一 个 实际 问题 ， 画 出 它 的 框图 ， 就 等 于 完成 程序 设 
计 的 大 部 分 任务 ， 剩 干 来 的 事情 ， 就 是 按照 算法 语言 抄写 框 
图 的 工作 。 

程序 设计 的 正确 性 ， 在 很 大 程度 上 取决 于 框图 设计 的 质 
量 。 框 图 体现 了 程序 设计 的 思想 ， 反 映 了 各 个 问题 之 间 的 相 
互联 系 ， 表 达 了 各 个 子 问题 之 间 的 作用 ,确定 了 解决 问题 的 
过 程 ， 以 及 程序 的 基本 结构 和 走向 等 。 因 此 ， 画 了 框图 既 形 
象 又 直观 。 它 便于 自己 和 别人 阅读 、 理 解 、 修 改 和 检查 程序 。 
绘制 框图 ， 是 各 种 高 级 语言 程序 设计 中 广泛 使 用 的 方法 。 

为 了 便于 学 习 ， 我 们 只 用 两 种 编制 框图 的 符号 ,矩形 杠 
和 蒙 形 框 ， 菱 形 框 为 判断 框 符号 ， 其 它 如 读 取 数 据 、 打 印 输 
出 、 变 量 赋值 等 等 均 用 矩形 框 来 表示 。 

现在 ， 我 们 举 几 个 简单 的 程序 设计 实例 。 

例 1, 比较 两 个 数 的 大 小 。 

设计 考虑 ， 设 置 两 个 变量 A 和 B ， 它 们 之 间 的 比较 有 三 
冲 情 况 : A>>B，A<B，A= B， 即 ; 
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YES -> 打印 <B 
A 与 B 比较 A>B?->YES 打印 A>B 
->A<B? | NO->j 1 NO 
A =B -> 打印 A =B 


为 了 把 上 述 思路 形象 地 描述 出 来 ， 让 自己 或 别人 看 起 来 
直观 明了 ， 叫 人 感到 思路 清楚 ， 层 次 分 明 ， 来 龙 去 脉 ， 一 目 
了 然 ， 我 们 就 用 几何 图 形 和 简单 的 文字 说 明 来 描述 上 述 问题 
的 计算 过 程 ， 即 框图 的 方法 ， 见 图 3.1。 









| 
WO 


图 3.1 
对 照 上 述 思 路 〈 它 已 经 在 框图 中 反映 出 来 了 ), 我 们 可 以 
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看 到 A 、B 两 个 数 的 比较 。 
“用 INP UT 语句 来 输入 ; 
“ 用 终止 标志 来 结束 ; 
“。 用 条 件 语句 来 判断 ; 
用 GOTO 语句 来 循环 ; 
。 用 打印 语句 来 输出 。 
对 照 框图 ， 我 们 不 难 写 出 程序 ， 见 再 26: 


]HST 


20 REM H26 

3 INPUT 帮 了 

3 下放 = 999THEN 130 

人 下 (BTHEN 1 

史 下 让》B THEN 9 

68 PRINT 胡 "IS EQRhL T0” 沁 
的 00T0 30 

了 PRINT 全”IS LES9 THAN 引 


60T0 38 
和 9 PRINT 胡 ”IS 6RENTER THAN” 波 
1]9 60T0 38 
130 EN 
例 2, 已 知 5 位 学 生 的 学 号 、BASI C 语言 和 ENGLI - 
SH 成 绩 ， 当 平均 分 在 0 一 59 时 给 评语 FAIL ，60 一 79 时 给 
PASS ,80 一 89 时 给 GOOD , 90 一 100 给 VERY GOOD( 平 
均 分 数 小 数 部 份 四 售 五 入 )。 给 出 框图 ， 写 出 程序 。 
对 这 个 问题 ， 我 们 的 主要 思路 如 下 : 
(1) 应 该 将 学 号 和 成 绩 的 信息 送 入 计算 机 ， 这 通常 用 三 
种 提供 数据 语句 的 一 种 ， 本 例 选用 READ 语句 ， 当 然 不 要 
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忘记 其 搭配 语句 是 DATA; 

(2) 由 于 题 意 要 求 平均 分 数 小 数 部 份 四 售 五 入 ， 故 用 下 
述 算式 解决 X= INT(C(A+B)/2+0.5)， 实 际 上 是 选 
用 的 赋值 语句 ; 
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(3) 为 了 给 出 不 同 平 均 成 绩 的 评分 。 自 然 想到 用 条 件 语 
名 IF/VTHEN 来 判断 ， 例 如 当 平 均 成 绩 X 大 于 等 于 80 而 小 
于 90 时 ， 给 出 “GOOD?” 的 评语 ， 而 又 等 于 或 超过 90 时 ， 
则 给 出 “VERY GOOD? 的 评语 ， 其 它 各 分 数 挡 的 评语 仿 


此 办 理 。 
根据 上 述 思路 ， 不 难 画 出 主要 框图 ， 见 图 3. 2: 
对 照 杠 图， 我 们 可 以 写 出 程序 H 27: 


]HST 


2 RENM H27 

5 FRI=1T05 

抱 必 各 放 旬 了 PRINT NA 了 

20X= IJN t+tB》A 2+0.5) 

25 限 INT “7“ 光 

30 IFYX(0THN7 

人 IFX(8THEN 好 

0 IFX 《9%THEN 9% 

6 了 INT 及 ”VERY 6000": 60T0 16 
得 了 INT NB” ”FATIL “60T0 1 后 

8 PRINT N ”PhS9” :60T0 169 

9 PRINT N ”600D” 

]98 NEXT II 

1 只 8501 88 ,86 8515，75, 68, 8564,98)92,8 
95016858,8517,8182 

120 END 


]RUN 
8 欠 8 
X=8 
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3901 60 轴 
细 1 人 8 


8504 和 0 

-95 

4594 VERY 60 

8521 6 史 

-59 

8521 FIL 

5]7 杀 ! 2 

X-9 

45]7 600 

说 明 ; 

(1) 请 注意 框图 近 旁 的 行 编号 ， 编 号 标 在 每 一 个 小 框图 
旁 有 三 个 作用 ， 一 是 对 照 框图 编号 及 框图 内 的 说 明 ， 可 以 广 
便 地 书写 程序 ， 二 是 有 助 于 将 程序 框图 与 其 相应 的 程序 语言 
进行 核对 ， 三 是 若 发 生 程序 不 能 工作 时 ， 可 以 参照 行 编号 检 
查 其 错误 地 点 和 人 性质 并 修正 之 。 

(2) 当 程 序 员 确 定 了 一 张 程序 框图 后 ， 他 就 掌握 了 给 计 
算 机 编写 指令 的 整体 方案 ， 他 可 以 通过 假设 的 某 些 输入 数据 
来 检验 他 的 方案 的 正确 性 ， 也 可 以 在 适当 的 地 方 加 上 某 些 主 
要 结果 的 打印 语句 ， 这 样 ， 既 可 以 及 时 发 现 错误 ， 也 可 以 了 
解 程序 的 详细 执行 过 程 例如， 我 们 在 上 述 程序 H 27 中 添加 
了 25 句 )。 

(3) 编制 框图 的 另 一 个 目的 ， 就 是 为 以 后 的 使 用 者 提供 
了 程序 文本 的 资料 ， 这 会 大 大 节省 使 用 者 理解 程序 的 时 间 。 
读 懂 别 人 书写 的 程序 不 是 一 件 轻而易举 的 事 ， 而 一 个 好 的 程 
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序 框图 ， 会 给 使 用 者 带 来 很 大 方便 。 
对 照 程序 画 框图 ， 或 对 照 框图 写 程序 ， 是 初学 者 应 该 掌 
担 的 基本 功 。 







20 
30 








COTO ”60,70, 80,90, 90 
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例 3， 统 计 N 个 学 生 考 试 成 绩 ， 打 印 90 分 以 上 , 80 一 89， 


70 一 79，60 一 69，60 以 下 学 生 的 人 数 。 


设计 思想 : 
安排 一 重 循环 ， 循 环 变量 为 I ， 取 值 范 围 为 1 到 N， 读 


成 绩 S， 按 W= INT(SV/10 一 5) 算式 处 理 ， 用 开关 语句 
ON…W 控 制 ， 以 区 分 不 同 分 数 档 ， 学 生 人 数 放 在 A5~A 


中 


为 此 ， 画 出 框图 ， 见 图 3.3。 
相应 程序 H 28， 


]L1S| 


5 RN H28 

1 INPUT AN= 让 

2 F 腿 I= 1TON 

3 Rb 9》 

354= INM (7 坦 -5)3 下 二 8THEN il= 


0 

物 只 和 60T0 80 70 80) 90 9 

中 提 = 的 + 二 60T0 1 

6 和 指 = 的 + 人 60T0 1 的 

了 和 他 = 季 + 人 60T0 100 

呵 秀 = 秀 +160T0 1 

各 的 = 的 + 人 60 壤 

| 的 ENT 

118 PRINT 扣 = 的 : PRINT “= 邱 

128 限 INT “和 = :PRINT “和 = 5; 抑 : PRINT 
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的 = ;的 

138 END 

1 和 9 殉 T 俐 89,57，95，7472,639883 9，168,53， 
64， 75，88) 89,79,93,09,25: 了 4 


注 ， 上面 的 几 个 程序 和 相应 的 框图 ， 在 实际 上 有 微小 差 
别 ， 这 在 编制 框图 时 是 允许 的 ， 但 主要 程序 设计 思想 ， 数 学 
模型 ， 变 量 或 数 ， 安 排 时 必须 在 程序 框图 中 标明 清楚 。 

例 4, 求 任意 数 的 阶乘 (如 4,7,9,3,11, 8,10) 主要 设计 思 
想 : 

程序 可 以 分 两 大 部 分 来 写 ， 主 程序 为 读数 、 计 数 〈 一 共 
7 次 ), 打印 各 数 阶乘 ， 子 程序 为 完成 求 任 意 数 的 阶乘 。 

就 求 阶乘 来 说 ， 它 有 通用 程序 ， 所 以 我 们 把 它 放 在 子 程 
序 中 ， 对 重复 多 次 的 计算 工作 可 以 用 循环 FORVNEXT 语 
句 ， 也 可 以 用 子 程序 的 方法 。 

框图 也 分 两 部 分 画 ,这 样 比较 清晰 , 见 图 3.4 和 图 3:. 5: 


114 






子 程序 人 口 


1I =N--1 IO 1 STEP 


RETURN 





3.4 图 3.5 
程序 清单 〈 见 H 29) 和 运行 结果 为 : 
]LIST 
5 RENM H29 


雹 REN 办 N PRO6RA 
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24 RE 和 AN 
2 PRINT 全 ”= 
38 600$ 骨 588 
斩 PRINT NAN PRINT 
和 JJ=J+1l 
4 IFJ=7?THEN EM 
5 的 T0 2 
的 殉 T 介 六 3 91 
588 REN SUBROUTINE 
5 地 FIRI=N-1T0O1STEP -1 
520N=N*#TI 
530 NA 了 
54 RETURN 
]RUN 
12 
71=5048 
91=302886 
31=6 
1 =39910880 
站 =40328 
101=3628888 


2 模块 化 程序 设计 


模块 化 程序 设计 方法 ， 是 将 一 个 大 的 程序 划分 成 为 若干 
功能 相对 独立 的 程序 子 模块 。 这 种 想法 并 不 难 理解 ， 就 好 象 
一 个 程序 总 是 由 若干 个 完成 不 同 功能 的 程序 段 组 成 ， 一 个 主 
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程序 可 以 包括 多 个 子 程序 一 样 。 
作为 程序 的 一 个 模块 ， 应 具有 以 下 性 质 ; 

(1) 正确 性 ， 即 使 脱离 该 模块 所 在 的 程序 环境 ， 也 能 正 
确 运行。 

(2) 完整 性 模块 在 逻辑 上 是 完整 的 ， 其 功能 和 作用 是 
明确 的 。 

(3) 通用 性 ， 模 块 作为 一 个 程序 段 是 通用 的 。 

(4) 独立 性 :模块 内 部 的 操作 和 调整 不 影响 程序 的 全 局 。 

.下 面 我 们 介绍 一 个 模块 化 程序 设计 的 实例 ， 程 序 虽 长 一 
点 (共有 100 多 句 ), 但 比较 好 读 。 介 绍 这 段 长 程序 有 下 列 几 
个 目的 ; 

. 可 以 作为 学 过 B AS IC 语言 的 读者 复习 之 用 ， 它 几乎 
包括 了 基本 B AS IC 语言 的 所 有 语句 和 功能 运用 。 

. 对 初学 B AS IC 语言 的 读者 ,在 学 习 了 B ASIC 语 言 各 
语句 及 命令 的 功能 与 使 用 方法 后 ， 可 以 对 照 检 查 自己 ， 实 际 
掌握 得 怎么 样 ， 是 否 能 看 懂 程 序 连接 方法 ， 来 龙 去 脉 。 

. 对 于 学 过 语言 ， 而 丢 的 时 间 较 长 又 缺少 上 机 实习 的 同 
志 ， 是 否 可 以 起 到 温 故 而 知 新 的 作用 。 

. 对 于 缺少 编程 练习 , 感到 程序 设计 还 比较 陌生 的 同志 ， 
是 否 可 以 学 到 一 些 前 析 程序 的 方法 。 

. 当然 主要 目的 还 在 于 ， 学 习 并 掌握 模块 化 程序 设计 的 
方法 ， 借 鉴 其 思路 与 技巧 ， 从 而 得 心 应 手 地 编制 自己 的 程 
序 。 

为 便于 初学 者 比较 顺利 地 阅读 程序 ， 我 们 除 给 出 运行 结 
果 外 ， 还 对 各 程序 子 模块 作 了 简要 的 说 明 ， 间 附 以 粗略 的 框 
图 。 
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完整 的 程序 清单 〈 见 H30) 和 运行 结果 : 


698 RENH H38 
78 CLEI 
795 DIM N(1》F 和 19) 幅 (19))S(18) 182Y 
时 出 ,P( 人 5)， 人 人 

中 险 IN PROGRh 有 
720 IJNPUT “这 ee 
738 IFX《8THEN 76 根据 x 值 C0 ~ 13) 
74 只 X 60SUB 890;989, 1999, 1166 1260, 1369， 
1489，1566, 1669， 1760, 1898,21060,2268 从 记 全 们 人 
758 60T0 72 人 
760 E 





8 RH 3 且 -( 


820 FIRK= 1T010 9 

838 NMk) = IN (20+10*r RND(D) 

8 PRINT MK ” 产生 10 个 两 位 随机 整数 ， 
858 EXNTLK 


855 耻 INT 并 存 贮 在 数组 N (K ) 中 。 
368 RETURN 





998 REI SUB-(2) 
919F = 全 
1 

F THEN 958 


将 10 个 存 贮 在 N 〈( 工 ) 


0 的 PRINT 中 的 最 大 值 打印 出 来 。 
9 RETURN 
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1899 REM SUB-(3) 


1636 $ = $ + 从 JJ) 
1848 NEXT ] 
1658 PRINT S 7 押 
1668 RETURN 


1 的 


REI 3 邮 -( 人 ) 


1t20 咱 = | 


1130 


F 妇 JI=1T 和 95 


1449 半 = 放 本 


1 
1100 
1110 


NEXT 1 
PRINT 
RETURN 


REN 3-(9 


了 -(5) 
en 0 40 
F INM (NP)》 7/ 


6 125 
PRINT 3 (KKP)) 
MXTp 
了 RN 
ET 


3) 


1000~ 1060 


求 存 贮 在 N (1 ) 中 的 10 


个 数 的 平均 值 。 


1100~1170 
求 N( 5 ) 中 的 值 的 累 乘 积 


即 求 M=xN(5)。 





1200 一 1260 


= 人 P) / 3 THEN 124 | 玉生 3 整 人 的 


N ( 1) 的 值 ， 并 打 


印 其 开平 方 的 值 。 
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1388 REN SUB-(6 

43 反 F 肯 放 = 1 
1320 下凡 队 》 
1338 60T0 1350 
13 各 PRINT 民用 
1356 EXT 
1368 PRINT 
1318 RETURN 


1488 RE 浊 


1300 一 1370 


求 数组 N 〈(M ) 中 大 于 或 


等 于 25 的 值 。 





1458 
1408 
1478 
1488 
] 物 


149 


1498 


1 的 
如 二 


B-( 
= | 
-TI+1T01 
IJ 》 = 
IT):MI) = NJ):MJ) 
MEXT 

F 啊 I=1T018 

PRINT KI)i” 

NEXT T 

PRINT 

RETURN 


REM SUB- 8) 


FIRk= 雪 T1STEP -1 


NJ)》THEN 1458 


1400 一 1498 


将 数组 N ( 工 ) 中 的 值 按 从 


大 到 小 排列 〈 共 10 个 )。 





1500 一 1580 





1528 PRINT 光线 5- MK) 
1538 NEATN 打印 数组 N (长 ) 中 的 10 
1535 PRINT 
1548 FF 中 下 = 0 10 STEP 2? 个 值 ,从 N 《10) 到 N(1)。 
15509 PRINT 全“ 
1568 人 EXT kK 打印 数组 N (K) 中 K-= 
1570 PRINT 1,3,5,7,9 的 值 。 
1588 RETURNN 
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RE SUB-(9) 

F 归 JI=1T05 

INPUT “ 拭 工 )= "于 折 卫 ) 
腿 INT F 斩 了 ) 

NEXT 

PRINT 

RETURN 


REI SUB-( 1 

TMPUT “$=? 和 

IF [= “NM ”THEN 1770 
FIRI=1T019. 


IF F 色 ID) = 和 THEN PRINT FS) 60T0 


全 NT 了 

耻 JNT “NOT FINL” 
e0T0 1 地 

RETURN 


NEXT I: PRINT 





1600~ 1670 


键盘 输入 5 组 字符 ， 输 入 一 组 


打印 一 组 。 





1700~ 1770 

查找 存 贮 在 字符 
车 变量 下 $( I ) 中 
的 字符 ， 若 没有 打 


印 出 找 不 到 信息 。 





1800 一 1830 


输入 10 个 货物 的 代号 和 数量 ， 


并 打印 出 全 部 信息 
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1868 FRI=1T09 

1878 FJ=I+1T01 1 二 
188 IFSGI) >》 =SJ) THEN 一 

189% T = S():9(TI) = SJ):9(J) = 

1988 叶 = 姓 (T): 同 (TI) = 阿 ( 术 : 表 吕 ) = 跑 将 10 种 货物 按 数量 
1910 NEXT J 

1928 了 恨 INT 性 (IT)””53(T) 

1930 NEXT 1 多 少 从 多 至 少 排序 ， 


1948 PINT 格 (19)7” ;349): PRINT 


用 的 是 枚 举 分 类 法 。 





1956 INPUT 了 = 

19%5 ]fpP= -5THN 2 
1%8 TI=86J=1 

19%8 IfJ-I( =1THEN 2 查找 前 面 存 贮 的 
19%8K= IMT+I) 7 2) 
19%8 IF pP=SK) THEN 2020 货物 情况 ， 按 数值 
208 IFPy>SK) THEN J=kK: 60T0 1910 
2010 1 =: 60T0 1910 

2020 人 “ 守 搜索 法 ， 这 种 方法 
2030 

2048 PRINT P” ”NOT FIN” 查找 速度 比 线性 搜 
JR 60T0 198 索 快 的 多 。 
2008 


1950~2060 


查找 ， 用 的 是 对 分 


限 INT “- 本 -让 -让 -让 - 素 - 
RETUNN 





2109 REN 39-(12)》 
2 的 9$=8 2100~ 2190 


21599 NEXT 1 

2168 PRINT 4 
2179D = 3 ( 各 $ (9) 
2188 PRINT 了 = 

2199 RETURN 


2288 REI SUB-(13) 
22 F 限 I=1T04 
2205 f 员 J=1T 和 9 


2220 INPUT “PT J)="iP(T 了) 2200~2350 

2220 NEXT J 

2030 NEXT ] 本 段 模块 完成 三 个 功能 ， 
2232 FRINT Q@ 给 入 四 行 五 列 的 值 并 
2235 F[ 限 工 = 1704 

224 F 豚 J= 1T0 3 打印 一 个 二 组 数 表 ， 

5 和 @ 求 每 一 行 之 素 值 的 累 
2255 PRINT 

225f 陛 X 

2299 了 INT 人 @@ 求 整个 两 组 数 表 所 有 : 
2204 F 妥 IJ=1T04 

2270 T(T) = 0 2 


2288 [也 J=1T09 
2299 TI) = TI) + PITJ) 
2309 NEXT J 
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23 雹 PRINT T”T( 和)=” 
2312 RRJINT 

2326 NEXT 

2330 = 8 

2335 [中 I=1109 

234 3 = 9+T(T) 

2345 NEAT 

2348 PRINT “= 5 

2390 RETURN 


]RUN 


枚 #| 
2.27 20222220252221 
#H2 

29 

抽 HH 
24.3 
抽风 

120 

妊 权 
5.19%15243 
4.89897949 
4.5825757 


拙 册 

227202520 

村 7 
20272%625222222 


江 (]) 


本 了 -22 

本 0-24 

站 5-29 

站 4-25 

本 3-20 

让 2-27 

本 1-29 
2020252222 
拙 相 9 

在 T)= 了 SI 
BSI[ 

了 )=RETURI 
RETURN 

和 (TI)=60SU 


BSAVE 
F 和 IT)=ChTAL0 
ChThLO 
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相亲 直 
=?BSAVE 
BSAWE 
树林 | 
F$=?LUCk 
NOT FIND 
上 ?CATALO 
CATAL0 
可 1 
?9 
和 般 
?2 俘 
色 各 
?3 79 
秀 提 
?h,55 
前 95 
45， 伯 
冯 细 
?hp 
抽 ff 
2h7)81 
| 
?2 9 
表明 
?的 00 
的 的 
从 10,55 
站 0 959 
竺 办 
角 明 
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秀 失 
hf 8 
身 六 
拟订 
的 扔 
前 多 
及 18 蒜 
各 49 
P= 交 9 
船 站 
P=49 
的 的 
户 1 
1% NT FIN 
P=-9 


到 
一 
人 一 
< 
cn 


~- 一 
SS 


< 一 一 一 一 一 一 
~ 一 ~ 一 ~ 一 ~ 一 ~ 一 ~ 一 一 一 ~ 一 ~ 一 ~ 一 ~ 一 
四 人 IN 呈 II 
人 fa 一 (四 八 > 
写 迎 宙 交 蕊 立 一 


一 
一 
> 
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一 一 一 一 一 一 一- 人 -一 一 一- 一 ~ -一 -一 -一 -一 ~ 


作 豆 生 守 世家 


-一 一 一 -一 一、 -一 CC 


和 


PvP 一- 一- 一 ~ 一 ~ 一 ~ 一 ~- 一 ~- 一 ~- 一 一 一 ~- 一 一 -一 


RIJ)=1 


1223 34 的 5 
21 32 竺 中 的 
10 20 30 4 58 
0807080 9 1 


1 TD=110 
2 T(2)=215 
ee 
T4)=311 

-8 

村 -3 

关于 程序 H30 有 以 下 几 点 说 明 

(1) 由 于 整个 程序 采用 模块 化 程序 结构 ， 数 组 不 能 重复 
说 明 ， 而 是 开 的 不 同 的 存 贮 ， 如 N(10)，F$(10)，M 有 $ 
(10)，U(10)，P (4,5) 等 等 。 

(2) 每 一 个 子 程序 的 最 后 一 句 ， 亦 即 每 个 子 模块 的 最 后 
一 句 ， 一 定 不 要 忘记 RETURN 语句 。 

(3) 正如 前 面 所 述 的 ， 本 程序 作为 一 种 复习 ， 是 为 了 练 
习 阅 读 程序 的 能 力 ， 故 各 模块 之 间 已 经 不 受 独 立 性 的 约束 ， 
各 子 程序 之 间 可 以 交叉 ， 例 如 SUB 一 (2) 的 程序 ， 用 到 
SUB 一 (1) 中 的 存 贮 结果 。 

(4) 从 模块 的 独立 性 来 看 ， 你 可 以 单独 调 出 某 一 模块 的 
程序 自由 运行 ， 而 不 会 影响 程序 的 全 局 ， 例 如 融入 RUN 
2200， 可 以 单独 打出 二 组 数 表 ,， ,各行 元 素 总 和 ， 以 及 方 阵 全 
体 元 素 的 总 值 (这 里 采用 INPUT P(I,J) 输 入 数据 )。 在 
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上 述 工 作 过 程 后 ， 由 于 要 执行 2350 _ RETURN 语句 , 而 发 生 
机 器 出 错 ， 这 也 无 关 大 局 ， 按 停止 键 ， 即 可 重新 工作 。 


3. 实用 数据 处 理 原 理 程序 


模块 化 程序 结构 是 一 种 先进 的 程序 设计 方法 。 它 的 主要 
思想 是 将 一 个 大 的 程序 划分 为 若干 功能 模块 , 并 供用 户 选择 ，. 
但 是 究竟 选用 哪 一 个 功能 ， 完 全 由 操作 者 自 定 。 因 此 ,设计 
一 个 选择 程序 ， 供 操作 者 使 用 ， 就 显得 十 分 必要 。 方 法 是 在 
程序 一 开始 ， 计 算 机 自动 显示 各 功能 名 称 ， 用 户 根 据 需 要 键 
入 希望 完成 的 功能 号 ， 则 程序 立即 转 入 相应 的 模块 ， 由 于 这 
种 方法 酷似 餐馆 中 的 点 菜 方式 ” 故 称 “菜单 ”技术 。 

程序 了 31 是 一 个 实例 ， 它 采用 多 择 一 结构 。 


]LIST 


5 RE H1 
10 REI 数据 处 理 原理 

28 JI MK20) 太 9)) BC) (19) 
38 “RESTORE 

4 PRINT “1. 数据 插 
5 PRINT "2. 教 据 几 
6 PRINT “3， 数据 修 
7 PRINT "4， 数 据 全 
8 INPUT 人 

9 IF kj = 中 "THEN BE 
198 和 = WL (kt) 

1 下 有 (1 中 如 》4THEN 好 
120 抽 各 60SUB 149,379,569,758 
138 HOME : 60T0 38 
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人 
除 " 
改 中 
并 


程序 一 经 运行 ， 立 即 显 示 各 功能 项 ， 


这 样 ， 操 作者 或 者 不 是 编制 本 程序 的 使 用 者 ， 就 可 以 了 
解 到 本 程序 有 四 个 功能 ， 它 可 以 完成 诸如 数据 插入 、 删 除 、 
修改 、 合 并 的 操作 。 

80 句 中 的 INPUT 氏 $， 是 等 待 用 户 响 应 ， 由 操作 者 输 
入 希望 完成 的 功能 代号 ， 在 1 到 4 之 间 。 

110 句 是 防止 程序 乱 跑 (BOMB PROOFING)。 上 述 
4 种 功能 是 用 1 到 4 这 四 个 数字 来 响应 的 ， 若 使 用 者 可 能 按 
错 数字 键 ， 则 程序 可 能 会 “爆炸 ”, 所 以 安排 了 “防爆 ”措施 。 
这 样 做 ， 实 际 上 是 增加 了 是 否 在 1 到 4 以 内 的 逻 得 检查 ， 如 
出 错 ， 则 自动 返回 重新 输入 。 它 虽然 不 是 文件 管理 上 提出 的 
要 求 ， 但 它 是 属于 提高 程序 质量 的 方法 。 

程序 中 的 输入 为 什么 采用 字符 串 变 量 民 $， 而 不 用 简单 
变量 呢 ? 这 基于 两 方面 的 考虑 其 一 是 防止 和 程序 中 处 理 的 
数值 相 混淆 ， 其 二 是 输入 方式 灵活 方便 ， 既 可 以 输入 字符 ， 
也 可 以 输入 数值 。 

例如 ， 要 结束 本 程序 可 以 输入 “并 ”号 ， 经 90 句 处 理 结 
束 停机 。 而 输入 的 “17”“ 2” “3 “142% 也 可 以 理解 是 
字符 ， 经 100 句 VAL(K$) 函 数 处 理 变 成 数值 。 

120 句 是 程序 在 分 析 用 户 的 要 求 后 ,所 作 的 分 支 处 理 ， 显 
然 用 开关 控制 语句 ON/GOSUB 最 为 合适 。 而 120 句 后 面 
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的 行 号 ， 是 程序 H31 中 相应 4 个 功能 模块 的 人 口 地 址 。 

每 个 独立 的 程序 模块 ， 分 别 完成 注释 中 的 相应 功能 ， 而 
在 每 个 模块 结尾 处 都 设置 了 RETURN 语句 ,以 便 在 完成 本 
模块 功能 后 ， 正 确 返 回 总 控 ， 即 经 130 句 先 清 屏 , 再 转向 “ 菜 
单 ” 提 示 ， 从 而 根据 需要 再 作 其 它 操作 。 

下 面 给 出 一 个 实用 数据 处 理 的 原理 程序 〈 互 32), 读者 可 
以 从 中 体会 “ 菜单 ”技术 在 实际 编程 中 的 应 用 ， 模 块 化 的 
程序 结构 以 及 数据 处 理 几 种 基本 操作 。 关 于 每 一 操作 的 原理 
说 明 ， 请 读者 自行 分 析 。 

]LST 


? REN 由 2 

18 REN 数据 处 理 原理 

2 英作 以 28) 和 9)B(11)X(19) 
38 RESTORE 

和 了 INT "1， 数据 插入 
0 PRINT “2. 
bo 了 RINT “3， 
人 1 PRINT “4. 
88 INPUT 上 
和 下 和 作 = “THEN EMD 
1 的 有 = WE (k$) 

1 正和 《1 腿 和 >》4THEN 88 
120 的 加 60SUB 149,376,560,750 
130 HOKE : 60T0 38 

148 REI 数据 插入 

158 FRI=1TD 地 

108 RE 加 II) 

178 PRINT MI) 

188 NEXT I 
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xz 


198 RRINT 


20%0K -8 
210 INPUT = 到: REN 人 
2 IFN= -1THEN3 


230 FI 工 = TIN SI = 计 

248 MI+ 1) = 以 IT) 

200 NEXT 

200K=k+1l 

276 INPUT “= i: REN 插入 的 数据 

280 RN) = 

298 PRRINT 

398 FRI= 1T010+Kk 

319 PINT 以 了 7” 

320 EXT 

336 外 INT 

346 60T0 210 

350 只 Th 12747 39，20, 60183985527 8 
陛 TURN 


376 REI 数据 删除 
388 F 限 IT=1T04 
398 REhD XI) 

468 PRINT MT) 
416 NEXT I 

426 PRINT 


438K=8 
448 INPUT q“N: REM 其 除 的 位 置 
458 IFN= -1THEN RETURN 
468 FRI=NTD9 

476 DMI) = MKI+ 人 

488 NEXT ] 

49%kK=kK+l 
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6046 
058 


二 


限 ]JNT 

[中 1=1T010-Ak 
限 INT 共 了 )”“; 
佐 江 了 

PRJNT 

6010 446 


9 REN 数据 修改 


F 吕 I= 1T0 地 
几 间 了 了 

了 RJNT 以 和” 
NEXT 了 

外 INT 


REN 876-926 连 续 修改 


F 腿 1=1T0 地 
INPUT ， 中 : 中 修改 的 位 置 
IFN= -1 THEN 699: REN 修改 结束 ， 显 


址 ， 刀 加 
INPUT “和 : REN 修改 的 数据 


670 区 N)》 = 才 


6080 


778 
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ENT 了 


F 腿 I=1T02690: NEXT TI 
RETURN 

REN 数据 合并 

FF 有 =4THEN F 限 I=1T016: RE 


0 8 第 各 记 J NEXT 


F 员 T 
T0 1: 性 和 名 BI): EXT 


f96T=1J=1N=8 

80N=N+l 

8i8 下 入 ID) 》BJ) THEN LET X(N) = AD) 
=T+1:060T0836 

820 XN) = BRJ)J=J+1 

838 IFNCISTHEN 800 

8 FRI=1T04 


898 限 INT 兴 了 7 


868 EX 

816 耻 INT 

880 了 人 997) 89,85，84 71 069,63 

898 只 T 9 94 92,99，87) 83，72, 09,66,55 
998 F 腿 I= 1T02098:NEXT TI 

918 了 ETURN 

程序 结构 的 几 点 说 明 ， 


(1) 本 程序 分 为 五 段 ， 各 段 功 能 如 下 : 

。10 一 130 句 :菜单 提示 ， 总 控 ， 防 止 出 错 处 理 ， 数 组 
安排 。 

。140 一 360 句 : 数据 插入 。 

。370 一 550 句 : 数据 删除 。 

。560 一 740 句 :数据 修改 。 

。750 一 910 句 : 数据 合并 。 

(2) 本 程序 各 功能 块 所 用 数组 ， 全 部 放 在 程序 的 第 一 段 
20 句 ， 这 样 安排 的 目的 是 ， 防 止 多 次 运行 某 一 功能 块 时 ， 出 
现 数组 重复 说 明 而 中 止 程 序 运行 的 错误 。 例 如 ， 若 在 程序 
第 四 段 安排 一 个 565 句 ， DIM D(20), 则 重复 运行 第 四 段 程 
序 时 发 生 数组 说 明 的 错误 ， 而 第 四 段 作为 一 个 独立 的 程序 编 
制 时 ， 则 565DIM D(20) 是 不 能 省 略 的 。 
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(3) 程序 第 一 段 30 句 安排 了 恢复 数据 区 语句 RESTORE， 
这 是 整个 五 段 程序 连接 在 一 起 时 必 不 可 少 的 ,否则 各 分 模 
块 完 成 该 模块 功能 后 ， 再 恢复 总 控 时 ， 其 它 各 模块 无 数 可 
坪 。 

(4) 130 句 设置 了 一 个 清 屏 语句 HOME 下 ， 这 是 为 了 屏幕 
显示 干净 ， 否 则 菜单 提示 和 运行 结果 混在 一 起 ， 有 些 信 息 丢 
失 。 但 在 打印 程序 结果 时 ， 应 删 去 HOME 巨 语句 ， 而 改 为 130 
PRINT:、PRINT:，GOTO 30， 否 则 发 生 打 印 格式 不 统 
一 以 及 打印 机 空 走 等 情况 ， 中 华 学 习 机 就 属于 此 例 。 

(5) 730 句 和 900 句 ， 安 排 了 一 个 延 时 技术 ， 即 用 FOR 
I=1 TO 2000: NEXT 上 的 空 循环 , 目的 是 看 清 运行 结果 ， 
否则 由 于 迅速 返回 总 控 显示 菜单 而 看 不 清 运 行 结 果 。 这 是 130 
名 HOME 指令 造成 的 。 

(6) 760 句 安排 了 一 个 虚 读 技术 , 这 是 因为 第 五 段 程序 是 
处 理 两 组 数据 的 合并 问题 ， 这 两 种 数据 放 在 880 和 890 两 个 
DATA 语 句 中 ， 如 果 不 安排 760 句 的 条 件 判 断 和 虚 读 技术 ， 
则 发 生 350 名 的 数据 和 880 句 的 数据 合并 ， 从 而 造成 程序 错 
误 并 中 断 。 

下 面 给 出 本 程序 了 32 运行 的 部 份 实例 ， 读 者 不 难 根据 程 - 
序 中 的 中 文 注释 ， 正 确 执 行 操作 。 


和 
PT 
一 - 
2 


re .~D -Fa rw "一 ~ 


] 
243206008390527 各 
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人 1 

让 4 和 

4 和 32606 答 得 男 2 了 7 秀 

和 5 

人 7 

4 12413577 生 半 妇 95527 部 

N=-| 

程序 运行 后 ， 首 先 出 现 菜单 和 ?, 从 键盘 键入 1， 则 程序 
转 入 数据 插入 功能 模块 ， 并 打印 原 数据 12，47，………: 7， 
88 的 信息 ， 若 要 在 上 述 数据 的 第 一 个 位 置 , 插入 444 的 数据 ， 
则 分 别 键入 1 和 444, 则 屏幕 显示 444,12，47，……， 27, 88， 
说 明 444 已 经 插入 第 一 个 位 置 中 ， 而 原 数据 信息 自动 向 后 移 
动 。 若 继续 插入 新 的 信息 ， 操 作 同 上 ， 如 不 再 增加 信息 键入 
一 1， 程 序 自动 返回 ， 并 重出 现 菜 单 和 ? 。 


12 儿 全 2%6183 的 5527 吕 
5 

2 他 生 283 折 瑟 27 多 
此 3? 


12412 人 %5278 


键入 2 后 ， 程 序 进 入 数据 删除 模块 ， 显示 原 数据 信息 。 
输入 5， 则 原 数据 第 5 号 位 置 上 的 61 删 去 ， 输 入 3， 则 又 删 
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去 35 的 数据 。 输 入 -1 结束 本 功能 模块 操作 ， 再 返回 总 控 ， 
又 出 现 菜单 。 


-Ca 
一 J 


裤 2 人 人 得 站 2 各 


让 示 地 了 韦 辽 :一 -wor 
外 外 吕 IN PC " = 。 本 
一 J 信 > 开 > 一 一 
= 一 一 小 CA 
= 反 > 


333 777 和 20601 和 和 5527 各 
键入 3 ， 进 入 数据 修改 模块 ， 显 示 原 数据 信息 ， 上 面 是 
在 1. 号 位 置 改 成 333，2 号 位 置 改 成 777 的 结果 ， 键 入 一 1 后 


99，97， 95，94，92， 08) 99) 87 95， 8483)72,7169,69 

,63,6)55 

键入 4， 进入 数据 合并 模块 ， 立 即 显示 原 数据 区 中 两 组 
数据 合并 情况 ， 并 且 按 有 序 排列 。 

若 结束 整个 程序 键入 “并 ”号 即 可 。 

上 述 操作 不 一 定 按 1,2,3， 4 顺序 执行 ， 可 以 任意 进行 任 
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一 功能 的 操作 ， 每 种 操作 也 可 以 进行 多 次 ， 只 要 不 要 超过 数 
据 存 贮 情况 ， 从 而 使 程序 执行 具有 更 大 的 灵活 性 ， 方 便 了 用 
央 : 


4. 多 重 循环 程序 设计 技巧 


众所周知 , 由 于 计算 机 具有 快速 准确 及 逻辑 判断 的 特点 ， 
几乎 所 有 的 高 级 程序 设计 语言 都 设置 了 循环 语句 ， 用 以 有 效 
地 解决 大 量 的 在 处 理 形式 又 完全 相同 的 重复 性 计算 问题 。 对 
多 重 循环 来 说 ， 这 种 重复 计算 的 工作 量 是 十 分 巨大 的 ， 多 重 
循环 最 内 层 循环 体 的 执行 次 数 ， 一 般 来 说 是 各 层 循 环 次 数 连 
乘积 之 值 ， 由 于 这 个 数字 往往 非常 庞大 ， 所 以 对 多 重 循环 来 
说 ， 十 分 注意 减少 不 必要 的 循环 次 数 ， 尽 一 切 可 能 避免 毫 无 
意义 的 重复 工作 , 特别 是 如 有 可 能 尽量 减少 循环 区 套 的 层次 ， 
就 是 一 个 有 实际 意义 的 工作 。 这 样 ， 我 们 就 可 能 使 计算 机 执 
行 较 少 的 命令 ， 干 出 更 多 的 工作 ， 从 而 达到 节约 时 间 ， 少 占 
存 贮 、 加 快速 度 、 提 高 效率 的 目的 。 

对 于 和 骨 套 的 循环 来 说 ， 外 层 循环 的 控制 变量 取 一 定数 值 
后 ， 内 层 循环 则 要 整整 转 上 一 圈 ， 只 要 内 层 循环 不 结束 ， 就 
谈 不 上 外 层 循环 控制 变量 的 增值 和 判断 。 这 种 循环 语句 的 执 
行 过 程 ， 和 时 钟 的 转动 规律 有 十 分 相似 的 地 方 ， 以 三 重 循环 
为 例 ， 三 层 循环 的 关系 好 像 手 表 的 时 针 、 分 针 与 秒针 ， 时 针 
移动 一 格 ， 分 针 转 动 一 图 ， 分 针 移 动 一 格 ， 秒 针 走 动 一 周 。 
但 二 者 也 有 差异 ， 时 钟 上 足 发 条 ， 指 针 的 移动 都 是 做 的 有 用 
的 工作 ， 它 在 一 秒 一 秒 地 计时 ， 而 程序 的 循环 呢 ? 并 非 都 是 
执行 有 效 的 计算 ， 事 实 上 ， 常 常 发 生 不 可 能 出 现 我 们 所 希望 
的 结果 时 ， 计 算 机 还 在 继续 进行 毫 无 意义 的 循环 。 
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这 里 从 一 个 具体 实例 出 发 ， 谈 谈 多 重 循环 的 设计 技巧 。 
用 100 元 买 100 只 鸡 ， 已 知 每 只 小 鸡 、 公 鸡 、 母 鸡 分 别 
为 0.5 元 、2 元 、 3 元 ， 问 每 只 鸡 至 少 买 一 只 一 共有 多 少 种 
解 : 设 A、B、C 分 别 为 购买 小 鸡 ` 公 鸡 和 母 鸡 的 只 数 ， 


据 题 意 有 以 下 方程 ; 
A+B+C=100 (DJ) 
0.5A+2B+3C=100 (2) 


而 约束 条 件 为 ， 1] 和 要 A、B 、C 扫 98 

我 们 可 以 用 循环 的 方法 ， 取 A、B 、C 的 各 种 可 能 取 值 ， 
去 投 试 上 述 方程 ， 只 有 全 部 满足 方程 (1) 和 (2) 的 A、B 、C 
值 ， 才 是 问题 的 解 ， 故 容易 写 出 程序 H33。 


]LIST 

1 RE 3 

28 F 腿 访 = 1T0 168 
3 F 腿 8 = TO .40 
哲 FIRC=T TI 久 


08 下放 +BR+D >》190THEN 8 

6 下 h+4+BR+6yrec >29THEN8 
1 PRINT 和 

从 NA 

和 全 洒 了 

多 EN 入 

110 END 


上 述 程序 总 的 循环 次 数 高 达 100 万 次 (100 兴 100 关 100 = 


105)， 所 以 运行 时 间 是 很 长 的 , 在 PC-1500 机 上 要 运行 13 个 
多 小 时 ， 在 APPLE-I 机 上 要 运行 2 个 多 小 时 ,而 在 WA- 
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NGPCS-IH 和 WANG2200T ( 均 为 美国 计算 机 )， 运 行 了 
4 个 多 小 时 。 

程序 本 33 并 没有 原则 性 错误 ， 因 为 它 确实 可 以 得 到 正确 ' 
的 结果 ， 为 了 更 快 地 得 到 答 案 ， 显 然 还 有 值得 我 们 探讨 的 问 
题 。 

(1) 第 一 个 问题 是 A、B 、C 的 终 值 是 否 都 是 100? 

程序 ( 1 ) 中 的 三 个 循环 变量 A、B 、C 的 终 值 均 为 100， 
是 没有 考虑 每 只 鸡 至 少 买 一 只 这 个 约束 条 件 编写 的 。 事 实 上 ， 
各 种 鸡 至 少 各 买 一 只 ， 每 种 鸡 最 多 只 能 买 98 只 。 所 以 三 个 循 
环 变量 的 终 值 都 只 要 取 98 即 可 。 对 于 每 一 个 单 循环 来 说 ， 终 
值 仅仅 减 小 了 2 ， 但 对 多 重 循环 来 说 , 它 的 意义 就 非 同 小 可 。 
因为 各 重 循环 终 值 按 98 计 算 , 总 的 循环 次 数 变 为 98 X98 x 98 = 
941192 次 ， 比 程序 ( 1 ) 循 环 次 数 减少 58808 次 。 也 就 是 说 ， 减 
少 了 近 6 万 次 的 无 效 循 环 。 

(2) 改写 一 下 循环 变量 的 终 值 

循环 变量 的 初 值 、 终 值 和 步 长 可 以 是 具体 的 数值 ， 也 可 
以 是 已 赋值 的 变量 ， 或 者 是 表达 式 。 从 这 个 基本 约定 出 发 ， 
我 们 把 三 重 循环 的 终 值 改写 一 下 : 

20 F 了 Rh=1T0 交 

3 FIRB=1T0 的 -0 

伯 F 有 =1T010 -hn-B 

显然 ， 这 个 程序 段 ， 和 三 重 循环 变量 都 从 1 变化 到 98， 
是 等 价 的 〈 注 意 :; 本 程序 段 写 法 比较 特殊 ， 它 是 考虑 到 和 A、 
B、C 三 个 变量 均 应 满足 A+B+C=100 和 1 近 A、B、 
C 委 98 这 两 个 条 件 的 )。 但 在 执行 的 效果 上 , 却 有 很 大 的 不 同 。 

为 了 说 明 这 个 问题 ， 我 们 先 考 察 一 下 下 面 两 个 程序 H34 
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及 有 35。 


镍 IT ]LST 
5 REN H34 5 REN H35 
0Nz=8 19N=6 
20 FIRh=1T05 2 FIRh=1T05 
30. F 有 = 1T05 38 FRR=1T06-h 
和 FIRC=1T059 和 FRRC=1T07-h -8 
50N=N+1 50N=N+l 
6 NEAT L 6 NEXTC 
他 NEXT B 1 NEXTR 
8 古 订 和 8 NEXT h 
9 PRINT AN= 引 98- PRINT NE 
上 述 两 个 程序 假设 都 满足 ， 
A+B+TC=7 
八 < 
这 两 个 条 件 。 


由 于 多 重 循环 最 内 层 循环 体 的 执行 次 数 ， 是 各 层 循环 次 
数 连 乘积 之 值 ， 所 以 程序 H34 总 共 执 行 循环 5 兴 5 兴 5= 
125 次 ,程序 的 90 行 是 统计 打印 循环 总 次 数 的 。 

对 于 程序 H35， 根 据 多 重 循环 的 执行 过 程 ， 不 难 计 算出 
总 的 循环 次 教 只 有 35 次 ， 它 仅 为 程序 且 34 循环 次 数 的 28% 。 

由 此 可 知 ， 对 本 程序 来 说 ， 循 环 终 值 的 写法 是 大 有 讲究 
的 。 

现在 我 们 再 回 到 本 题 上 来 ， 改 用 程序 可 36 求 解 本 题 

]LST 


16 RE H36 
20 F 妥 和 = 工 T0 阁 
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50 下 和 + 了 + 

= 200 THEN 人 IINT 

8 NEXT CO NEXT BR NEXT 入 

程序 H 36 比 程序 H33 写 得 更 为 简捷 ， 但 最 主要 的 是 由 于 
把 循环 终 值 形式 上 改写 了 一 下 ， 总 循环 次 数 已 由 程序 H33 的 
100 万 次 ,改变 到 只 有 161700 次 ， 它 仅 为 程序 H33 循 环 次 数 的 
16.17% , 显然 ， 这 是 一 个 大 的 飞跃 ， 它 省 去 了 838300 次 无 用 
循环 。 

从 上 述 事实 , 可 以 看 到 多 重 循环 的 工作 量 是 非常 巨大 的 ， 
而 缩短 初 值 和 终 值 之 间 的 差距 是 减少 循环 次 数 的 一 个 有 效 方 
法 。 当 然 ， 这 种 减少 ， 必 须 由 题 意 分 析 确 定 , 不 能 任意 减少 。 
不 同 的 题目 ， 可 以 用 增 大 初 值 、 减 少 终 值 或 两 者 兼 而 有 之 ， 
来 达到 减少 循环 次 数 的 目的 ， 上 例 是 用 减少 终 值 的 方法 来 实 
现 的 。 至 于 本 例 改 写 终 值 的 形式 ， 是 受 本 题 不 定 方程 求解 这 
个 特殊 条 件 制 约 的 。 

(3) 三 个 循环 的 终 值 也 不 可 能 都 是 98 。 

这 个 问题 也 是 非常 明显 的 ， 若 买 98 只 小 鸡 则 共 花 去 98 X 
0.5= 49 元 , 再 买 母 鸡 、 公 鸡 各 一 只 ,又 分 别 花 去 3 元 和 2 元 ， 
虽然 买 了 100 只 鸡 ， 但 只 花 了 49+ 3 + 2 =54 元 ,不 满足 “ 百 
钱 买 百 鸡 ” 的 题 意 ， 同 理 母 鸡 、 公 鸡 也 不 可 能 买 到 98 只 ， 和 否 
则 100 元 钱 不 够 花 。 

让 我 们 进一步 思考 ， 看 看 还 有 什么 万 法 ， 来 减少 循环 次 
数 。 

改写 方程 (1) 和 (2 ): 


b -6 - 
198 hND 和 + 全 本 了 + 6 
但 Bi 


143 


A+B=100 一 C (3) 


AT+4B=200 一 6C (4) 
(3) 式 x 6 -(4) 式 得 : 
5A+2B=400 (5) 
(4) 式 一 (3) 式 得 : 
5C+3B=100 (6) 
(3) 式 x 4 一 (4) 式 得 : 
3A 一 2C=200 (7) 
改写 (5)、(6) 、(7) 三 式 则 有 : 
400 一 5 A 
人 (8) 
100 一 3 B 
人 (9) 
200+ 2 C 
EC (10) 


表面 上 原来 两 个 方程 (1 )、(2), 变 成 了 三 个 方程 (8)、(9)、 
(10)， 多 了 一 个 方程 ， 但 经 过 这 样 处 理 ， 却 使 问题 简单 多 了 ， 
因为 每 个 方程 只 是 一 个 变量 依赖 于 另 一 个 变量 的 单一 关系 。 

由 (8) 式 ，B 最 少 取 1 时 〈 根 据 题 意 ): 


A =79.6 取 整 数 79。 
由 (10) 式 ，C 最 少 取 1 时 ， 
A =67.3 取 整 数 67。 


故 可 知 A 的 变化 范围 : .67 久 和 A 近 79。 

再 考察 方程 (2), 当 A 为 奇数 时 ， 不 满足 方程 的 解 ， 所 以 
A 必 为 偶数 ， 这 样 ， 可 知 A 的 取 值 范围 是 68 到 78， 且 步 长 
为 2。 
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这 个 事实 告诉 我 们 ，A 的 终 值 不 是 98，A 的 初 值 也 不 是 
1 ， 并 且 A 的 变化 也 是 有 规律 可 寻 的 ， 它 的 间隔 是 2 。 

读者 不 难 想到 ，B 和 C 的 初 : 终 值 又 是 什么 ? 它们 是 否 
也 按 一 定 的 规律 变化 呢 ? 这 个 问题 ， 还 是 让 计算 机 帮助 我 们 
判断 吧 ! 

(4) 计算 机 可 以 帮助 找到 变量 的 取 值 范围 和 变化 规律 

和 A 的 变化 范围 确定 了 ， 代 入 (8) 式 ， 则 可 确定 B 的 变化 
范围 ， 同 理 B 的 数值 确定 了 ， 代 入 (9) 式 ， 也 可 确定 C 的 变 
化 范围 。 

现在 ， 我 们 不 要 一 一 投 试 方程 去 计算 ， 只 要 编 两 个 小 程 
序 H37 和 H38， 让 计算 机 自动 去 求解 吧 ! 

]LST 

5 下 EN H37 

7 PRINT =; 

1 FRRh= 的 T0789STEP 2 

208 = (480 -5*# 和 7 2 

3 耻 INT 了 

人 NEXT 


]RUN 

了 30 25，20， 旨 ，10,9， 

由 此 可 知 ，B 的 变化 范围 是 从 5 到 30, 且 步 长 为 5 。 
]LST 

5 REN H8 


7 PINT "= 
1 FB=5T030STEtp 3 
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205=(19 -3+B)75 
36 了 PRINT 0; 
人 NEXTR 


]RUN 

C=17 14, 11952， 

程序 结果 表明 ，C 的 取 值 范围 是 从 2 到 17 而 步 长 为 3 。 

综合 A 、B 、C 的 取 值 范围 和 步 长 变化 规律 ， 我 们 可 以 
写 出 程序 H 39: 


]LIT 


1 REHH9 
20 F 吸 h= 6 和 蓄 STEp 2 

3 FIRB=5T030STEp5 

和 FRRC=2T0TSTEP 3 

5 IFh+B+C=19pRADN+4*+B+6+ 
= 209 THEN PRINT fbB 

88 NEXT C: NEXT B: NEXT 和 


读者 不 难 发 现 ， 程 序 H39 总 共 循 环 次 数 只 有 125 次 ， 仅 
为 程序 H33 循 环 次 数 的 万 分 之 一 点 二 五 。 显 然 ， 本 程序 的 运 
行 速度 是 很 快 的 ,在 P C -1500 机 上 仅 运行 20 秒 就 得 出 全 部 结 
果 。 

由 此 可 知 ， 同 时 增 大 初 值 和 缩小 终 值 ,并 且 加 大 步 长 值 ， 
会 使 程序 效率 大 大 提高 ， 它 们 是 加 快 程序 循环 部 分 执行 速度 
的 又 一 个 好 办 法 。 

同时 ， 我 们 还 应 看 到 ， 如 果 没 有 计算 机 的 “帮助 >, 很 快 

146 


地 作出 上 述 三 个 变量 的 取 值 范围 及 变化 规律 的 判断 ， 还 是 比 
较 困 难 的 。 在 程序 设计 中 ， 利 用 计算 机 协助 人 们 编程 ， 也 是 
一 个 值得 研究 的 课题 。 

(5) 循环 能 套 的 重 数 可 以 减少 

减少 循环 的 层次 ， 使 循环 嵌 套 愈 少 愈 好 ， 这 样 ， 便 可 以 
进一步 振 高 程序 的 运行 速度 。 

分 析 程 序 H39， 我 们 用 C = 100 --A 一 B 来 代替 40 句 ， 
显然 是 可 以 的 ， 因 为 当 A 和 B 的 值 确定 后 ，C 的 值 也 就 确定 
下 来 ， 故 可 以 省 去 一 重 循环 ,这 样 总 的 循环 次 数 只 有 25 次 了 。 
同样 ， 我 们 从 方程 (8)、(9 )、(10) 中 还 看 到 这 样 一 个 事实 ， 
每 个 变量 只 依赖 一 个 变量 ，A 定 B 也 就 定 了 ， 而 也 定 C 也 定 
了 ， 因 而 我 们 完全 可 以 再 省 去 一 重 循环 ， 即 删 去 30 行 的 一 重 
循环 ， 而 改 用 B = (400 -5XxA) /2 的 赋值 语句 。 省 去 二 
重 循环 后 ， 总 共 循 环 次 数 只 有 5 次 ， 它 仅 为 程序 H33 循 环 次 
数 的 百 万 分 之 5 ， 可 见 运 行 时 间 会 进一步 缩短 ， 而 速度 则 会 
大 大 提高 。 见 程序 H 40， 

]LIST 


1 RENH H4 
20 F 有 Rh= 交 TSTEP 2 


FFh+B+C= 捧 几 有 4948+64 

2088 THEN PRINT 鱼 B 

0 化 XT 和 

(6) 循环 体 的 判断 语句 可 以 省 去 

经 过 上 面 好 几 步 的 简化 ， 我 们 得 到 程序 也 40， 好 像 该 做 
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1 轨 苞 


的 我 们 都 做 了 ， 循 环 初 值 增 大 了 ， 终 值 减 小 了 , 步 长 增加 了 ， 
循环 层次 又 减少 了 ， 作 为 循环 程序 的 设计 技巧 ， 基 本 上 我 们 
都 考虑 到 了 ， 其 实 ， 就 本 题 来 说 ， 循 环 体 中 的 内 容 还 可 以 其 
酌 。 由 于 A 、B 、C 之 间 关 系 完 全 由 方程 (8 ) 、(9 )、(10) 
所 制约 ， 并 且 在 处 理 上 述 工 作 时 ， 又 已 经 考虑 了 约束 条 件 ， 
所 以 ， 程 序 H40 中 循环 体内 的 判断 语句 完全 可 以 省 ， 因 而 
有 程序 H 41: 

]LIST 

10 REM HI 


2 FRh= 的 T078STEP 238 = 《460 - 5 本 和 
) 1230=169 -和 -8 PRINT 外 BC NEXTN 


]RUN 

0 3 2 
但 0 9 
1 20 8 
休 5 1 
8 10 1 
了 9 1 


这 个 程序 不 仅 简短 节省 内 存 ， 而 且 运 行 速度 又 是 所 有 程 
序 中 最 快 的 一 个 .在 P C -1500 机 上 只 运行 了 几 秒 钟 ， 而 在 
APPLE -[ 机 上 执行 时 间 仅 为 1 秒 钟 左右 。 

综 上 所 述 ， 我 们 围绕 一 个 不 定 方程 的 求解 过 程 ， 探 讨 了 
循环 程序 设计 技巧 的 各 个 方面 。 虽 然 本 题 是 从 一 个 具体 例子 
出 发 ， 任 意 引 出 的 结论 却 具 有 普遍 的 意义 。 循 环 是 BAS IC 
语言 中 的 精华 和 核心 ， 编 程序 几乎 离 不 开 循环 ， 因 此 ， 掌 握 
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循环 程序 的 设计 技巧 ， 无 论 对 学 习 哪 一 种 高 级 语言 都 是 重要 
的 。 循 环 程序 的 设计 技巧 可 以 归纳 以 下 各 个 方面 : 在 步 长 不 
变 的 情况 下 ， 减 小 初 值 和 终 值 的 差距 是 减少 循环 次 数 的 有 效 
方法 ;在 初 、 终 值 一 定 的 情况 下 ， 加 大 步 长 可 以 大 大 提高 程 
序 的 效率 ;减少 循环 区 套 的 重 数 ， 是 提高 程序 运行 速度 的 关 
键 ; 调 正和 精简 循环 体 的 语句 , 是 提高 程序 质量 的 有 力 措施 ; 
合理 安排 控制 和 转向 语句 ， 是 及 时 脱离 无 效 循 环 避 免 重 复 计 
算 的 前 提 。 而 所 有 这 一 切 ， 又 以 尽量 减少 无 用 循环 次 数 ， 努 
力 避 免 大 量 无 意义 的 重复 工作 为 根本 ， 这 是 高 质量 进行 循环 
程序 设计 的 关键 。 
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四 、 打印 输出 


1， 中 英文 状态 转换 


中 华 学 习 机 在 中 文 状 态 下 打印 输出 时 ， 其 速度 是 比较 慢 
的 ， 无 论 是 输出 汉字 还 是 输出 英文 字符 ， 打 印 机 都 要 来 回 打 
印 两 次 。 在 英文 状态 打印 输出 时 ， 其 打印 速度 比较 快 ， 但 所 
有 中 文 汉字 都 变 成 了 一 些 英文 字母 和 莫名 其 妙 的 字符 。 

如 何 提高 在 中 文 状态 下 的 打印 速度 ， 又 使 得 中 、 西 文字 
符 清晰 可 辨 ， 就 是 一 个 有 实用 意义 的 问题 。 

可 以 设想 ， 如 果 设 法 使 机 器 在 打印 汉字 时 按 中 文 状态 工 
作 ， 而 在 打印 其 它 字 符 时 按 英文 状态 工作 ， 显 然 可 以 提高 打 
印 输出 的 速度 。 这 就 是 说 要 对 打印 机 实行 某 种 控制 ， 使 其 按 
上 述 要 求 自动 进行 中 英文 状态 的 转换 。 

键盘 上 中 西 文 的 转换 ， 是 通过 改变 “中 文 % “英文 ”的 
两 个 按键 ， 用 手动 的 方法 完成 的 ， 但 这 种 操作 不 适用 于 对 打 
印 机 的 控制 。 因 此 ， 容 易 想到 ， 要 使 打印 机 能 自动 进行 中 英 
文 的 转换 ， 必 须 从 程序 上 来 进行 控制 。 

如 何在 程序 中 进行 中 、 英 文 打 印 输出 的 分 别处 理 呢 ? 

请 先 看 以 下 一 个 实验 。 

如 果 屏 幕 上 显示 的 是 英文 字幕 ， 若 此 时 键入 PR # 3 命 
令 并 回 车 ， 则 屏幕 上 立即 显示 中 文 状 态 的 图 象 。 这 就 给 我 
们 一 个 启发 ， 在 程序 中 利用 D O S 命令 和 中 华 学 习 机 汉字 系 
统 提 供 的 软 开 关 ， 在 程序 的 适当 地 方 ， 按 打印 汉字 还 是 英文 
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的 需要 ， 进 行 中 文 打印 状态 和 英文 打印 状态 的 转换 。 
例如 ， 要 进入 中 文 状态 ， 可 用 程序 匡 42 实 现 。 


]UST 


1 RENM H42 

加 路 = CHR (人 ) 

3 限 INT 下 ;PRH3” 
个 POKE 16059,1 

5 PRINT “中 文 信息 " 


而 齐 入 英文 状态 ， 可 连接 以 下 语句 ， 
]USJ 

7 PRINT 于 ;PR 

铂 PRINT “英文 信息 " 

程序 H 43 是 一 个 中 英文 状态 转换 程序 控制 的 实例 ， 
]UST 


5 REMN H? 
提 REM 中 英文 状态 转换 

2 于 = (HR (4) 

39 POKE 16595 

和 8 PRINT “中 华 学 习 机 在 中 文 状态 下 打印 速度 


态 工作 ,“ 
RN 3 必须 使 程序 按 需要 进行 两 种 
杰 的 转换 ，” 


状态 的 转换 ， 
08 PRINT “下 面 是 一 个 实例 ,“ 
人 POKE 1059,0 


8 PRINT 
物 PRINT 于 "PRH3": REN 进入 中 文系 统 
198 PRINT : POKE 1659,1: REN 接 通 打印 机 
119 PRINT "---- 中 文 ----”" 

128 PRINT “在 中 文 状态 下 打印 汉字 ” 

139 PRINT 

因 PRINT 节 ; "PRH1": REN 进入 英文 状态 ， 


通 
8 限 INT "---EN6LISH--- 
169 PRINT "PRINT ENGLISH 
178 PRINT "ZHONG HU XUE XI J" 
188 PRINT 
198 PRINT 于 ;PRH3" 
268 PRINT : PUKE*1659)5 
218 PRINT “中 华 学 习 机 
220 PKE 1659,0 


下 面 汉 
在 中 文 状 态 下 打印 汉字 
6L 全 上 


~ENGLIS 
PRINT ENETSH 
ZHONG HUA XUE XI JI 


中 华 池 习 机 


请 观察 打印 输出 的 变化 情况 ， 体 会 打印 中 文 汉 字 和 英文 
字符 时 速度 上 的 差异 。 

30 句 进入 中 文 状 态 并 接 通 打 印 机 ， 将 40 一 60 句 的 中 文 信 
息 打印 出 来 ，70 句 断 开 扫 印 机 。90 句 又 进入 中 文系 统 ,100 句 
接 通 打 印 机 并 按 1 号 字 型 打印 110 一 120 句 的 中 文 汉字 。140 句 
进入 英文 状态 ， 按 打印 英文 的 速度 打印 输出 150 一 170 句 的 字 
符 。190 句 再 次 进入 中 文 状 态 ， 按 5 号 字 型 打印 “中 华 学 习 机 ? 
五 个 汉字 。220 句 是 中 文 状态 下 断 开打 印 机 的 命令 。 


2.， 汉字 打印 控制 


在 中 华 学习 机 汉字 系统 中 ， 汉 字 的 打印 驱动 程序 是 针对 
MX-80 亚 型 打印 机 设计 的 ， 它 要 求 打 印 机 的 接口 为 Centro- 
nics 接 口 ， 打 字 机 接口 必须 定义 为 I/O 槽 口 的 1 号 槽 。 

进入 汉字 系统 后 ， 可 以 用 下 述 四 个 软 开关 来 控制 和 打印 
汉字 。 这 些 软 开关 POKE 命令 ， 既 可 以 直接 从 键盘 输入 执 
行 ， 也 可 以 放 在 程序 中 使 用 。 

(1) 设置 打印 方式 

格式 ，P OKE 1659，n 

说 明 : n = 0 为 不 打印 ， 也 表示 脱离 打印 机 。 相 当 于 西 
文 状态 的 PR 并 0 功能 。 进 入 汉字 系统 后 ， 打 印 方式 自动 置 
为 0，n = 1 一 15 为 打印 方式 ， 中 华 学 习 机 可 以 打印 15 种 字 
型 。 

例如 ， POKE 1659，1 一 一 打印 小 字 

POKE 16 59， 2 一 一 横向 小 字 打 印 
POKE 1659， 3 一 一 横向 大 字 打 印 
POKE 1659， 5 一 一 纵向 小 字 打 印 
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POKE 1659，6 一 一 纵向 大 字 打 印 

(2) 设置 字 间 上 

格式 POKF 1787，n 

说 明 ;， nm 为 打印 的 ASC II 字符 之 间 的 字 间 距 ， 即 以 
英文 字符 为 单位 ， 英 文字 间隔 为 N 个 点 ， 而 一 个 汉字 占用 二 
个 ASC II 字符 的 位 置 ,所 以 中 文字 间隔 为 2N 个 点 。n 取 值 范 
围 为 0 一 255， 字 间距 可 在 0 一 255 个 点 之 间 。 进 入 中 文系 统 
后 ， 字 间距 自动 置 为 1 。 

(3) 设置 行 间距 

格式 ，POKE 1915，n 

说 明 : na 为 打印 行 之 间 的 点 间距 , n 取 值 在 0 一 255 之 间 。 
即 定义 行 与 行 之 间 的 距离 为 N 个 点 ， 如 果 不 加 选择 ， 进 入 系 
统 后 自动 置 为 1 。 

(4) 设置 行 允 许字 数 

格式 ，POKE 2043，n 

说 明 : nm 为 一 行 所 允许 打印 的 汉字 个 数 。a 取 值 在 0 一 
255 之 间 , 由 于 一 个 汉字 占用 两 个 英文 字符 位 置 ， 所 以 每 行 允 
许 打印 的 汉字 数 是 N /2 个 。 但 实际 上 一 行 允 许 打 印 的 汉字 个 
数 与 所 选择 的 打印 方式 ， 字 型 大 小 以 及 设 定 的 字 间 距 有 关 。 

运行 程序 H44， 可 以 进入 汉字 状态 ， 并 在 打印 机 上 用 各 
种 字体 打印 出 中 文字 。 读 者 可 以 输入 并 运行 该 程序 ， 观 察 其 
执行 结果 。 

应 该 特别 指出 的 是 ,程序 中 软 开 关 的 设置 状况 发 生 转 换 
时 ， 应 注意 恢复 ， 否 则 ， 打 印 的 结果 将 发 生 错误 ， 并 发 生 打 
印 机 乱 走 纸 和 失控 情况 。 

例如 ,220 句 用 第 6 种 字 型 ， 字 与 字 之 间 间 距 30 个 点 ， 打 
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印 230 句 结果 后 ， 换 第 5 种 字 型 时 ， 应 将 字 间 距 恢复 ， 即 安 
排 POKE1787，1 再 打印 250 和 名 结果。 

又 如 270 名 设置 了 行 间 距 POKE 1915，40 后 ， 在 打印 
ee 转向 另 一 种 打印 模式 ， 应 安排 300 句 
POKE 1915，1 ， 使 其 行 间 距 恢复 为 正常 模式 。 

其 它 情况 ， We， 并 对 照 运行 
果 一 一 检验 。 


5 REM Hq4d4 

10 RENM 汉字 打印 控制 

28 PKE 16595 

38 本 “OKE1659, 作 :N-- 设 置 打 印 方式 ,=8 不 打印 ,N=1--15 为 打印 各 种 字 型 ， 举 例如 下 :” 
4 p 

59 POKE 1659,1: REM 接 通 打印 机 ,打印 小 字 

68 PRINT“ 例 1:N=T 各 种 字体 中 文 打印 一 打印 小 字 ” 
7 PRINT 

物 POKE 1659,2: REH 打印 槛 向 小字 玫 
9 PRINT“ 例 2:H=2, 各 种 字体 中 文 打印 一 模 向 小 字 ” 
199 PRINT 

119 POKE 1659,3: REI 打印 模 向 大 字 

人 “ 催 : 修 3, 各 种 字 休 中文 打印 一 模 向 大 字 ” 
38 了 

149 POKE 1659,5: REN 打印 纵向 小 字 

159 PRINT“ 例 4:N-5, 各 种 字体 中文 打印 一 纵向 小 字 ” 
168 PRINT 

178 POKE 1659,6: RE 打印 纵向 大 字 可 


189 PRINT“ 例 5:H=6, 各 种 字体 中 文 打印 一 纵向 大 字 ” 


1% PRINT : POKE 1659,5 
200 PRINT "POKE1787,N:N-- 设 置 字 间 距 ，N 取 9--255 个 点 ， 举 例如 下 :” 
PINT 


229 `POKE 1659,6: POKE 1787,30 

238 PRINT “各 种 字体 中文 打 印 " 

249 PRINT : POKE 1659,5: POKE 1787,1 

250 PRINT "PORKE1915,N:-- 设 置 行 间距 ，N 取 9--255 个 点 ， 举 例如 下 :” 
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264 PRINT 

276 POKE 1659,6: POKE 1915,49 

289 PRINT “各 种 字体 中 文 打印 

290 PRINT “各 种 字体 中 文 打印 " 

398 POKE 1915, 1: PRINT : POKE 1659,5 

319 PRINT “"POKE2943,N:N-- 设 置 行 多 许字 数 ， 取 9--255 个 汉字 ， 举 例如 下 :” 
326 PRINT 

339 POKE 1659,1: POKE 2643,48 

348 PRINT “各 种 字体 中 文 打印 各 种 字体 中 文 打印 各 种 字体 中文 打印 各 种 字体 中文 打印 各 种 
字体 中 文 打印 各 种 字体 中 文 打印 " 

356 POKE 1659,8 

366 ED 


POKE1659,:N-- 设 置 打印 方式 ,N=6 不 打印 ,=1--15 为 打印 各 种 字 型 ， 举 例如 下 ; 

例 1:N=1, 各 种 字体 中 文 打 印 一 打印 洒 字 

f5 人 二 : N 一 全。，- 人 各- 币 中 村 : ff = 妆 寺 让 ED 一 必 IO 小 守 : 

人 > 一 全 - -不 中 3 f< 一 全 一 才 矿 世 亡 一 一 3 
TEEt 一 人 一 二 = 


例 :I5， 各 种 字体 中 文 打印 一 纵向 小 字 

例 5:N=6, 各 种 字体 中 文 打 印 一 纵 各 大字 
POKE1787,N:-- 设 置 字 间 距 ，N 取 6--255 个 点 ， 举 例如 下 : 

各 种 字体 中 文 打 印 
POKE1915,N:N-- 设 置 行 间 完 ，N 取 9--255 个 点 ， 举 例如 下 : 

各 种 字体 中 文 打印 


各 种 字体 中 文 打印 


POKE2943,:H-- 设 置 行 允许 字 孝 ， 取 9--255 个 汉字 ， 举 例如 下 : 
各 种 字体 中 文 打印 各 种 字体 中 文 打印 各 种 字体 中 文 打印 各 种 字体 中 文 打印 各 种 字体 中 文 打 
“ 印 各 种 字体 中 文 打印 
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3， 汉字 图 形 混合 打印 


中 华 学 习 机 可 以 利用 自己 的 中 文系 统 和 高 分 辩 率 作 图 语 
句 ， 方 便 地 实现 高 分 辨 图形、 汉字 及 字符 的 混合 显示 和 打 
印 。 

由 于 中 华 学 习 机 汉字 系统 是 利用 高 分 辩 率 图 形 页 面 2 来 
显示 汉字 和 字符 的 ， 所 以 ， 只 要 在 显示 汉字 的 同时 使 HCO- 
LOR 命令 有 效 ， 便 可 在 同一 画面 中 混合 输出 汉字 和 图 形 。 
这 实际 上 就 是 在 高 分 辨 图 形 中 显示 汉字 和 图 形 。 

下 面 是 一 个 简单 的 实例 ， 在 中 文 状态 下 ， 运 行程 序 H45 
后 ， 可 以 得 到 如 图 4.1 的 输出 : 





SRRPH PND CHINESE- | 
| 
gf， 


图 4.1 
]UST 

2 REN H45 

] RH 汉字 图 形 混合 打印 

10 HGR2 
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20 HOME : V 名 2: HI6B 8: PRINT "高 分 撞 
图 形 中 : VB 6: HT 6: PRINT “ 显 不 
认 和 有 笠 征 

25 VWTR 9: 几 角 5: PINT “6RRPH RND CHINESE 

-HRICTER” 

4 HKCOLR= 3: HPLOT 25,6 T0 2500 T0 250 1 

8 T 25,189 T0 25,6: HPLOT 25,68 T0 249,60: 

HPLOT 25,120 T0 249，120 

9%K= PEEK ( - 16384): POKE ( - 16368))0: 

IfFK( 1 THEN %% 

IFK=208 THEN PR 1 POKE 19132: 限 I 

MT CHR 《17): END 

7 PRINT CHRS (18): PRINT CH 《12 关 ED 


程序 编制 和 操作 中 几 点 说 明 ， 

(1) 程序 一 开始 必须 设置 一 次 HG R 2 命令 , 以 便 在 作 图 
开始 后 使 HCOL OR 命令 有 效 。 

(2) 本 程序 是 在 中 文 状态 下 运行 ， 因 此 进入 汉字 显示 方 
式 后 ， 由 于 显示 区 使 用 存储 器 高 分 辩 第 2 页 , 故 使 用 HGR 2 
命令 不 仅 清 屏幕 ， 而 且 连 同 状态 行 也 被 清除 。 

(3) 本 程序 不 能 使 用 H G R 命令 ， 因 为 它 使 屏幕 变 为 混 
合 显示 方式 ， 即 在 屏幕 的 上 方 显示 图 象 ， 而 在 屏幕 下 方 有 4 
行 字符 的 显示 ， 但 在 这 种 方式 下 不 能 显示 汉字 。 

(4) PRINT CHRS$ (12), 可 用 在 程序 中 清除 屏幕 
PRINT CHR$ (18) 的 作用 是 显示 或 清除 状态 行 的 提示 
符 。 

(5) 本 程序 停止 按 任意 键 ， 而 打印 则 按 P 键 。 按 P 键 后 
首先 接 通 打印 机 (P R 并 1)， 然 后 设置 第 二 页 打印 方式 单元 
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(POKE 1913，2)， 最 后 打印 (PRINT CHR$ (17))。 

附 ，HGR 2 图 形 打印 中 POKE 1913,n 含 义 ; 

POKE 1913，2: 正常 方式 正常 尺寸 。 

POKE 1913，66: 放大 尺寸 图 形 。 

POKE 1913，34:， 反 相 状态 图 形 。 

POKE 1913，98:， 反 相 放 大 图 形 。 

地 址 1913 打 印 方式 单元 的 值 一 经 定义 后 ,除非 用 POKE 
语句 重新 设置 ， 或 重新 开机 ， 和 否则 不 受 〈( RESET ) 等 键 
的 影响 ， 始 终 保持 已 指定 的 打印 方式 。 


4 图形 汉 字 硬 拷贝 


画 好 一 幅 图 形 ， 再 加 注 一 些 中 文 说 明 ， 就 能 达到 图 文 并 
茂 的 效果 ， 从 而 使 图 象 信息 更 为 丰富 , 画面 更 加 生动 活 泌 。 

程序 H46，H47，H48 是 解决 图 形 汉 字 硬 拷贝 的 一 些 党 
试 ， 有 的 只 能 在 屏幕 上 显示 而 不 能 全 部 打印 ， 有 的 能 显示 也 
能 打印 但 控制 要 有 人 的 干预 ， 有 的 比较 好 地 解决 了 图 形 汉字 
的 同时 拷贝 。 

程序 本 46 : 


jLIST 


5 RE Hb 

扩 于 = CHR$ (94) 

好 ThNPUTY 

昌 大 关 609UR 1009090 

中 of 2 

108 HGR2 :HOULUR= 3 

1 HPLGT 1 人 有 58 
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1 站 到 [有 于 88 厅 交 下 
] 和 名 得 8008 

1 和 9 HPLOT 闻 总 58 

| 归 HPEOT 1 的 Tt 

238X =“【3 门 电路 着 号 

248 了 RINT TI 人 和光 伟 

2608 RETURN 

扣 贡 


运行 程序 再 46 后 ， 在 屏幕 上 显示 高 分 辨 第 二 页 的 图 形 和 
门 电路 四 个 汉字 ， 见 图 4. 2。 


但 是 图 4.2 中 图 形 和 汉字 并 存 的 格式 ， 却 不 容易 拷贝 下 
来 。 
在 中 文 状态 下 接 通 打印 机 后 ， 屏 幕 上 先 显 示 图 形 ， 然 后 
只 打印 汉字 而 没有 图 形 ; 
]R 册 N 


外 
【与 门 电路 符号 】 
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键入 P OKE1913，2 和 PRINT CHRS$ (17) 后 ， 
图 4. 2 中 图 形 上 半 部 打印 不 出 来 ， 见 图 4.3: 


?2 
UPOKEI1931S， 
UDPRINT CHR 囊 (17) 


【与 门 申 路 符号 了 
图 4.3 


第 一 种 情况 ， 因 没有 设置 高 分 玫 图 形 打 印 方式 ， 故 打印 
输出 只 有 与 门 电 路 四 个 汉字 。 第 二 种 情况 ， 虽 设置 了 高 分 
辨 图 形 打 印 方式 POKE 1913 ,2 和 打印 图 形 指令 PRINT 
C HR$ (17)， 但 图 形 的 上 半 部 没有 打印 出 来 。 原 因 是 在 第 
一 种 情况 执行 后 ， 没 有 安排 TEXT 命令 ， 即 没有 及 时 从 高 
分 辨 图形 方式 转换 到 满 屏幕 文本 显示 方式 。 

程序 HE47: 


16 1 


]LST 

5 REM Hi7 

志 融 = CR 9) 

2 TMPUTY 

38 IFX=3THEN EN 
申明 % 60SU8 290,190 199 

5 60T0 2 

188 HGR2 : HCOLUR= 3 

4 馈 HPLOT 1108 TO 1148:50 
120 HPLOT 5058 TD 17858 TO 176 1908 T0 5 
] 的 T05059 

138 HPLOT 8 198 1 8, 150 
1 生 HRPLOT 14198 TO 149,150 
区 限 INT 于;"PRH 人 

159 POKE 1913,2: PRINT CR (7) 
155 PRINT 王 "pRh3” 

166 RETURN 

1% E 

28 PRINT 

220 PKE 1659,5 

238 X 人 =”[【 与 门 电路 符号 
24 PRINT 名 ( 45) 他 

245 TEXT 

250 POKE 1659,6 

269，RETURN 


程序 H46 的 运行 结果 表明 ， 在 图 形 和 中 文 信息 均 要 打 
印 的 情况 下 , 应 该 注意 两 种 状态 〈 中 文 状态 和 图 形状 态 ) 的 及 
时 转换 。 
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例如 ， 打 印 中 文 信息 后 ， 安 排 工 卫 X 工 语句 ， 使 其 从 图 
形状 态 (高 分 辩 图 形 方式 或 低 分 辨 图形 方式 ) 转换 到 满 屏 幕 
文本 显示 方式 ， 而 在 打印 图 形 后 〈 这 里 指 高 分 辨 图形 ), 用 程 
序 控 制 使 其 重新 进入 中 文 状态 。 即 在 执行 PRINT CHR$ 
(17) 后 ， 已 经 退出 中 文 汉字 系统 状态 ， 重 新 进入 中 文 状态 ， 
必须 用 P R 并 3 命令 ， 特 别 要 注意 的 是 ， 在 该 命令 后 一 定 要 
尾随 一 个 PRINT 语 句 。 

程序 H47 就 是 这 样 安排 的 。 为 了 说 明 原 理 ， 我 们 用 一 个 
总 控 来 分 别处 理 中 文 和 图 形 两 种 状态 的 控制 。 


JRUN 
?1 


[二 站 电路 符号 】 


图 4.4 


图 4. 4 是 先 键入 1， 再 键入 2 的 打印 结果 。 

图 4.5 是 先 键入 2， 再 键入 1 的 打印 结果 。 

程序 H47 的 优点 是 ， 键 入 1, 或 2 的 次 序 可 以 灵活 掌握 ， 
既 可 以 将 中 文 加 注 在 图 形 上 方 ， 也 可 以 将 中 文 加 注 在 图 形 的 


163 


【与 上 电路 符号 


图 4.5 
下 方 ， 这 是 因为 在 程序 安排 了 一 种 状态 到 另 一 种 状态 的 及 时 
切 转 。 但 缺点 是 一 幅 图 形 和 文字 的 打印 要 分 两 步 完 成 ， 并 且 
要 由 人 工 操作 进行 。 

为 使 操作 简单 ， 并 不 受 人 的 干预 ， 只 要 在 程序 47 的 基 
础 上 ， 稍 加 改动 部 份 语句 和 结构 ， 即 可 自动 完成 图 形 汉 字 的 
硬 拷贝 工作 。 请 看 程序 H48。 

程序 H48: 


]HIST 

5 REM H48 

1 中 = CHR (4 

28 INPUT 

3 IfYX=2TEN 印 
由 听 X605U8 108 
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50 60T0 20 

1 的 HGR2 : HCOLIR= 3 

1 HPLOT 1108 TO 11050 

128 HPLOT 50,58 T 17956 T0 170 100 T0 59， 
]00 T 5050 

138 HPLOT 8 109 T0 8 150 

148 HPLOT 140 168 T0 140, 150 

1 PRINT 顺 PR 全 

150 PUKE 1913)2: PRINT CHRS 《17) 
155 了 PRINT 中 -PRH3” 

160 PRINT 

220 FIKE 1059,3 

230 X 必 = 【与 门 电 遇 符号 

240 PRINT T 角 (19) 训 坊 

245 下 人 

258 POKE 1059)0 

204 RETUNN 


请 注意 ,155 句 PRINT D$;i“PR 并 3 的 下 续 语 句 160 
句 的 PRINT 人 是 必 不 可 少 的 ， 读 者 可 以 上 机 试验 ， 删 去 160 
句 后 是 什么 情况 ， 又 是 什么 结果 。 


5. 通用 写字 绘图 程序 

程序 H49， 既 简单 又 通用 ， 既 可 以 写字 又 可 以 绘图 。 
]19i 

5 REN H49 


1 PRINT 
20 RE 各 XIFXC8THN PRINT :60T0 26 
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3 下 X》36 THEN 80 
3 PRINT T 角 ( Xi” 
40 RE 加， 

20 F 中 I=XT0Y 

08 PRINT 

他 NEXNTI 

8 60T0 2 

188 EN 

]99 DT 0 人 438 


运行 这 个 程序 ,可 以 写 出 由 5 个 B 字 符 组 成 的 “一 ” 字 。 
程序 执行 过 程 如 下 : 

首先 读 一 个 数 零 ， 因 不 满足 20 句 和 30 句 的 条 件 而 转向 35 
句 ; 在 X= 0 的 位 置 上 打印 一 个 空格 ， 实 际 上 是 控制 打印 针 
头 处 在 起 始 位 置 。 执 行 40 句 读 一 个 数 4， 经 过 50 一 70 句 循环 ， 
连续 打印 5 个 上 B?” 字 符 〈 因 为 X=0,Y=4)， 循 环 结束 经 80 
名 再 转向 20 句 ,又 读 一 个 值 38, 满足 30 名 条件， 转向 180 句 然 
后 结束 。 

如 果 在 DATA 语 句 中 安排 小 于 零 的 数 ， 如 -1 ， 则 满 
足 20 句 条 件 打 印 一 个 空格 ， 从 而 起 到 控制 打印 针头 换行 的 作 
用 。 

因此 ， 我 们 事先 写 好 字 或 画 好 图 (最 好 用 方 格 坐标 纸 )， 
把 数据 放 在 DATA 语 句 中 ， 则 可 以 利用 上 述 程序 ， 自 动 完成 
写字 或 画图 的 工作 。 

下 面 是 一 个 实例 ， 运 行程 序 H50 可 以 画 出 一 个 熊猫 图 案 
来 。 
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]RUN 


BBB 


BBBB BBBBB BBBBB 


BBBB BBBB BBB 
BBBB BBBBB BBB PB 
BBBB BBBBB BBB BB 
BBbBB BBBBBB BBBB BB 

BBBB BBBBB 。” BBB BB 


BBBB BBBBB 


BBBBBB BBB 


BBBBBBBBB 
BBBBBBBBBBBB 
BBBBBBBBBBBBBB 


BB 
BB 


BB 

BBB BBB 
BBBBBBB 
BBBBBBBBB 


BBBBBBBBBBBBBBBBBBBBBBBBBBBB 
BBBBBBBBBBB8BBBBBBBBBBBBBBBBB 
BBBBBBBBBBBBBBBBBBBBBBBBBBBB 
BBBBBBBBBBBBBBBBBBBBBBBBBBB 
BBBBBBBBBBBBBBBBBBBBBBBBBBB 
BBBBBBBBBBBBBBBBBBBBBBBBBBBB 
BBBBB  BBBBBBBB BBBBB BBB BBBB 
BBBB ” BBBBB  BBBBB  BB  BBBB 


BBBB BBBBBB “ BBBB  BBBB 
BBBBBB BBBB “ BBBBB  BBBB 
BBBBBBBBB BBBBBB  BBBBBBBB BBBB 
BBBBBBBBBBBBBBBB ” BBBBBBBB BBBB 
BBBBBBBBBBBBBBBB  BBBBBBBB BBBB 
BBBBBBBBBBBBBBBB ” BBBBBBB ”BBBB 
BBBBBBBBBBBBBBBB 。” BBBBBB  BBBB 
-BBBBBBBBBBBBBBBB 。” BBBBBB . BBBB 
BBBBBBBBBBBBBBBBB 。”BBBB “ BBBB 


BBBBBBBBBBBBBBBBBB  BBB  BBBBB 

BBBBBBBBBBBBBBBBBB BBB BBBBB 
BBBBBBBBBBBBBBBB BBB BBBBB 
BBBBBBBBB 。” BBBBBBBBBBB 


]UST 


9 REN Hp8 


1] RE 熊猫 程 序 
18 限 IT 


好 RE 名 党 下 XC8THN PRINT :60T0 20 


BBBBBBBBB 


BBBBBBB 
BBB 


]67 
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于 %>》36 THEN 1596 
和 秀 ( 为 且 


2 的 险 衣 23，25， -1116202220 -0101 
62020， -10 19522720 -90152320 -1 

2 只 从 8124 29 -47 10 2425 109 
22082927 -5 816 2022242027 -| 

220 只 Th 9， 8 16) 28，22，242027 -1 958 1520 
120729520727 -1 介 六 19，19,23,2526027-1 

230 了 哈 衣 人 719182526) -3919172520 
呈 -3 09525720 -3 1029222420-1 

248 险 价 3 14 22728， -127 15721292729,- 
229 1229 -220-1 

250 中 俐 127 -了 28 -1 5 8 15, 10,2022， 
4 26)29， -1 1 9812 15， 19，2223,20,29,-1 
268 区 T 和 人 13 1 22027730 -1 6 13 10 
020)24727) 39 -91 10 1920283b-1 
278 区 仙 了 16 19,2628 3 -tt 1019,26029， 
3 0 19，25)28 3 -10202528 3 - 
102025283D-1 

2 各 险 六 了 1 2424727 36 -和 2423 20， 
30 -2 19)2123，2428 -1 

298 中 Th 95520721 23)2428) -9 13， 1727 -4 
8 20 -925 -1 2423，-999 


程序 H51 也 可 以 写字 或 者 画图 ， 其 设计 思想 和 程序 H50 
十 分 相似 ，M= N = 0 是 起 换行 作用 ，M= N = 36 是 终止 程 
序 的 标志 。 运 行程 序 H51 后 可 以 打印 出 +、 一 、x 、 二 、= 
五 个 数学 符号 。 

程序 中 M 的 取 数 是 程序 中 要 求 打 印 图 形 的 起 始 位 置 ，N 
的 取 数 则 是 程序 中 要 求 打 印 符号 (例如 光 ) 的 个 数 。 一 排 排 打 
印 ， 直 到 M、N 的 值 是 36， 则 说 明 图 形 已 经 全 部 打 完 , 当 M、 
N 的 值 均 为 “0” 时 ， 程 序 安 排 机 器 回 车 ， 表 示 一 行 打印 完 
毕 ， 另 从 下 行 开始 打印 ， 反 复 循 环 。 


]LST 


2 RE 册 1 

1 各 AN 

20 下 Nz=36THEN 10 

30 IFI=bTHEN 8 

引 F 腿 I= 作 TOMN+N-1 

50 PRINT ThRB( 了 7 

608 NEXT 

人 0 60T0 1 

从 了 RINT 

% 60T0 1 

198 END 

1 哈 痢 5 17 22 和 220 468 
]20 险 T 3 8 020 13105060 
138 珀 作 3 9 9 519 40245000 
149 了 殉 六 9 了 18 20 43145500 
158 只 T 5 17 和 24026100 
108 哈 人 3636 
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LIRUN 


贡 基 其 
其 其 
其 其 用 闫 关 
商 汪 其 凑 尖 凑 其 基 其 汪 关 人 
其 其 攻关 总 其 其 
共 基 苹 


6. 打印 特殊 字符 库 

中 华 学 习 机 在 进入 汉字 系统 后 ， 按 下 “FF2” 键 时 ， 屏 幕 
左下 方 提 示 行 将 显示 “拼音 :? 两 字 ,表示 进入 拼音 输入 方式 。 

键入 一 ( 减 号 )、= (等 号 )、 八 ( 斜 线 ) 可 以 选择 标点 符号 、 
算术 运算 符号 和 制 表 线 符号 等 。 调 用 这 些 符 号 给 程序 编制 、 
报表 输出 带 来 许多 方便 ， 并 使 报表 形式 更 加 多 样 、 美 观 。 

这 些 特殊 符号 的 输入 方法 如 下 : 

按 一 ( 减 号 ) 可 输入 的 符号 有 : 


jRUN 


= (等 号 ) 可 输入 的 符号 有 : 


0 
-08606060 


-rs 溢 


2 
6 


按 信 〈 斜 线 ) 可 输入 的 符号 有 : 


FTr+L 上 二 


汉字 系统 中 所 提供 的 特殊 符号 ， 远 远 不 止 以 上 71 种 , 事 


实 上 还 有 好 几 百 个 符号 ， 例 如 ， 下 面 


滥 蕉 十 一 -QQ 
NI 十 8 
志和 十 十 0 


中 六 上 FE 上 
口 一 -La 


和 民 和 
二 人民 rm 局 局 
CT 一 上 也 
避 L = 上 OO 
:DO 2 了 导 内 


志 =F |‖ 邓 
Fr- 二 

\ 二 F 户 履 国 
NO 一 二 
N- 于 | 此 mm 十 | 
NG 一 富国 咱 
中 一 一 且 瑟 


oz NA 上山 


四 四 钊 和 琅 外 


1 


2 


2 
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和 心 命 口 国人 和 人生 并 一 


1 1e. 人 人 14151617 1319 00 
[la 03 15910607 09 0109 0 
加 折 辐 四 国 四 四 四 


这 些 特 殊 字符 存在 什么 地 方 ， 又 怎样 调 出 来 呢 ? 
这 和 汉字 按 区 位 方式 存 贮 在 字库 中 十 分 类 似 。 


例如 ， 国 标 中 规定 16 区 01 位 置 上 是 汉字 的 “ 啊 ” 字 ， 在 
汉字 系统 状态 下 ， 按 “F3 ” 键 后 ， 屏 幕 左下 方 提示 行将 出 现 
“区 位 :” 两 字 , 表 示 进 入 区 位 码 输 入 方式 。 此 时 键入 1601 后 ， 
“ 啊 ? 字 就 输入 到 计算 机 中 ，. 显 示 在 屏幕 上 ， 即 : 

区 位 码 ” 汉字 
16 ol 曙 


区 号 ”位 号 

同样 ， 汉 字 “ 啊 ”国际 码 为 1601， 它 在 中 华 学 习 机 内 的 
表示 形式 为 : 7F 2 匡 1D。 这 就 是 说 每 个 汉字 均 以 等 长 的 3 
字 码 保存 在 主机 内 存 中 ， 其 格式 为 ， 7 下 + 区 码 十 位 码 。 

其 中 7 是 定 值 ，2 刁 是 区 码 ，1D 是 位 码 。2 正 是 学 习 机 
内 码 的 16 进 制 表示 , 对 应 的 学 习 机 内 码 10 进 制 表示 则 为 46 
(2x16+14x16"=46)， 相 应 的 区 位 码 的 10 进 表示 则 为 16; 
1D 是 学 习 机 内 码 的 16 进 制 表示 ,对 应 的 学 习 机 内 码 10 进 制 表 
示 则 为 29(1x:16+13x16"=29)， 相 应 的 区 位 码 的 10 进 制 表 
示 则 为 01; 而 7 上 也 是 16 进 制 表 示 ， 化 成 10 进 制 数 应 为 127 
(7x16+15x16"=127)。 

因此 ， 汉 字 “ 啊 ?， 也 可 以 用 以 下 形式 找 出 来 ， 则 从 键盘 
输入 :PRINT CHR$(127)+CHR$(46)+ CHR $(29 )， 
屏幕 上 立即 显示 “ 啊 ”% 

CHR $ (算术 表达 式 ) 是 一 个 函数 ， 它 的 作用 是 得 到 一 
个 与 算术 表达 式 值 相对 应 的 ASC II 字符 。 例 如 ， PRINT 
CHR$(65), 打印 出 “A2” 字 符 来 。 

汉字 “ 啊 ” 字 ， 在 BAS IC 程序 中 也 可 以 用 字符 串 函 数 
表示 ， 如 A$= CHR$(127)+ CHR$(46 )+ CHR 有 $ 
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(29)， 则 PRINTA$ 也 会 显示 出 汉字 “ 啊 ” 字 。 

有 了 上 述 基 本 知识 ， 我 们 可 以 用 一 个 程序 将 学 习 机 内 所 
有 的 特殊 字符 全 部 打印 出 来 。 

关键 是 必须 知道 ,这 些 特 殊 字 符 是 存 贮 在 那 一 个 地 址 , 亦 
即 它们 的 区 号 在 什么 地 方 。 经 对 中 华 学 习 机 汉字 库 与 ASC II 
字 串 的 分 析 ， 了 解 到 它们 存 贮 在 122,123,124,125,126 这 五 
个 区 号 中 ， 而 各 自 的 位 号 为 1 到 94。 

打印 特殊 字符 库 的 程序 见 H52: 


1 陛 
2 则 打针 和 匠 字 和 

5 POKE 204350 

了 POKE 117814 

8 POKE 1915)4 

9 PKE it591 

 FRI=7T08 

1 PRIN T 角 (10); 

加 下 “CHRS(127)tCHR 和 ;46 + 了 和 了 OH 
我] 

从 PRINT : PRINT 

20 F 妥 J=8T09% 

站 = 了 站 估 + 全 -请 

浊 PRIN 了 角 (20 + 本 

8 PRINT CHRS (27 + CHR (+D+ 介 
串 (290 + 了; 

08K=kt+1i 

6 IFX》= 竺 THEN PRINT 六 =8X= 攻 - 
提 
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忆 1 


和 F 限 3$=1T025:PRINT : NENT S 


的 K = 0:h = 


8 


198 NENT 


1 的 PUKE 
1 END 


程序 H52 


1659)0 


的 运行 双 


结果 : 


CHR$(《127)+CHR$(122>+CHR$(J) 


29- 
39- 
39- 
494- 
49 - 
594- 
59- 
64- 
69- 
7q9-@ 
了 9-。 
84- ?9 
89- 4 
94 -= 
99- + 
16094- 
199- % 
1194- 水 
119- / 
124- 4 


38 - 
35 - 
498 - 
45 - 
58- 
55- 
668- 
65- 

7 了 78- 

7 了 5- 和 
86- 目 
895 = 也 
96- 1: 
95- 王 
1668- ~- 
165- ! 
119-& 
115- + 
126- 6 
25 一 与 


31- 
36- 
41- 
46 - 
5 全 
56- 
61- 
66 - 

了 1- 

7 了 6 - 人 
81- 0 
86- 六 
91-! 
96- 1 
191- * 
186-“ 
在 玫 再 二 
116-， 
121- 1 


32- 
37- 
42- 
47- 
52- 
57- 
62- 
67- 
72- 
77- 
82- 国 : 
87- 次 
92- 可 
97- 1 
162- ~ 
187- # 
112-( 
117- - 
122- 2 


33 - 
38 - 
43 - 
48 - 
53- 
58- 
63- 
68- 
73- 8 
7 了 8- 
83-8 
88-m 
93- 护 
98 - > 
1863- = 
1988-$ 
113- ) 
118- . 
123- 3 
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CHR$C127)+CHR$(123)+CHR$(J) 


29-6 38- 了 31-8 32-9 33-: 
39 - 35- 3 36-《 37- = 38- > 
39-? d48-e@ 41-h q492-B8 43-C 
494- 45- D 46 -上 47-F 48-6 
49- H 56-1I 51- 了 52-K 53-L 上 L 
54- 55-N 56-0 57-P 58- 
59-0 68-R 61-3 62-T 63-U 
6q4-8Y 55- 66-X -67-Y 68-2z 
69-[ 76-A\ 71-] 72- - 73- - 
74=-、 75-a 76 -bb 77- < 78-1d 
79-e 886- 上 f 81-39 82-h 83- i 
84- j 85- k 86- | 87-m 88-n 
89- o 986-P 91-q 92-r 93-s 
9q4 -上 95 -4u 96- v 97- 山 98 - X 
99-y 188-z 161-{ 162-) 163-》 
164-~ 165-。 166-c 167-0i 1968-e 
1869-a 11o-a 111-a 112-8a 113-S 
114-e 115-e 116-e 117-1 118-1 
119-)、 126-N 121-R 122-E 123- 
124-f 125- 6 
CHRS$(127)+CHR$(124)+CHR$(J) 
29-6 36- 31-0 32-u 33-?9 
394- 35-0 36-0 37-c 38-L 
39- 季 486-R 41-f 42-84 43-1 
494 - 45-0 46-040 47- 48-N 
49-a 56-9 51- 52-~ 53-” 
54-% 55-% 56-1 57-“< 58- 
59-> 66- 关 61-8 62-@ 63-1| 
64- 1 65-1 66- | 67- 1 68-1 
69- 786- 1 71-1 72- 1 73- 3 
74- 1 75- 1 76-L 7 了 7- 上 7 了 8-r 
79- 上 | 89-- 81-+ 82-h| 83- 上 
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8d4-L 85-r 86- 上 87-r 88- 上 
89-- 96-+ 91- 上 上 92- 93-T 
94q4-T 95-L 96-! 97-r 98-r 
99- 坏 186-+ 161- 上 上 162-r 163- 量 
184-m 165-1 166- 1 1967- 旦 :1868-<“ 
199-g 116e-y 111-r 112-2 113-<6 
114-w 115-c 116-8 117-86 118-9 
119-5 126e-o。 121-o 122-e 123-n 
124- = 125- 上 + 


CHR$(127)+CHRS(125)+CHR$(CJ》 


29-= 38- 31- 32-1| 33- + 


34- 35- * 36-。 37- . 38- : 
39- + 406-m 41-， 42- .8 q43 - 
44 - 45- 46- 、 47- . 48- . 
49-- 5e-v 51-… 52- 和 ww 53- 猎 
54- 一 55- 一 56- 1 57-… 58- 


59- ′ 66- 61-” 62- ” 63- (人 
64-- ) 65-《 66-> 67-《 68-y>》 
69- 上 768- | 7 了 1- 了 72- 4】 73- 区 
7 了 74- 了 75-《 76-3 了 77- 上 土 了 8- 藉 
9 一 过 89- : 81- 和 人 82-V 83- 工 
84- 了 册 85-U 86-mm 87-E 88- :: 
89- ~ 986- 二 91- 1 92- 93- 人 ~ 
94- 虽 95- 96- 乡 97- 一 98- 毕 
99- 吧 1686-c 1691-cc 162- 天 1863- 本 
164- 好 165- 和 区 166->> 187-co 168- … 
1869-.… 1196- 人 人 111- 了 了 112-” 113- 
114-”115-C 116- 和 $ 117- 118- 工 
119- 区 1286-% 121-8& 122- 人 123- 人 女 
124- 廊 125- 〇 
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CHR$S(127)+CHRS$(4126)+CHR$(J) 


29-@@ 39-O 31- 〇 32- 凶 33- 口 


34 - 35- 国 36-A 37- 生 38-※ 
39- 一 4696- 一 41-1 42-) 上 43- 王 
44- q5- q6 - 47- q48 - 
49 - 596 - 51- 52 - 53 - 
54- 55 - 56 - 57- 58 - 
59 - 69 - 61- 62-1 63- 2 


64- 3. 65- 4 66- 5. 67- 6. 68- ?了 . 
69- 8. 7 了 9- 39. 71-1 人 0 72-1 了 3- 12. 
74-13 75- 人 4 76-1 77-16 78-17 


79- 1 ， 86- 人 9 81-m 82-(] 83-13) 
84-(3) 85-(4 86-(50) 87-(6) 288- (7) 
89-(8l) 986-(9j 91-(t 92- 届 93- 所 


94- 趾 95- 叫 95- 打 97- 虽 98- 叫 
99- 虽 1686- 扑 161- 凶 162-@ 163-@ 
184-@ 165-@ 田 1866-@ 167-@ 1898-@ 
169-@ 116o-@ 111-@ 112- 113- 
114- 卓 115- 白 116- 上 117- 四 118- 因 
119- 内 1286- 风 121-m 122-W 123- 由 
124- 125- 


关于 “打印 特殊 字符 库 ? 程序 及 运行 结果 的 几 点 说 明 ， 

G@) ! 循环 变量 从 76 到 80, 这 样 46 二 [分别 为 122 到 126， 
相 应 于 91 区 到 95 区 。 JJ 循环 变量 从 0 到 96， 这 样 29+ 丁 对 
应 于 0 一 94 个 位 号 。 

@ 5 个 POKE 指 令 , 分 别 为 设置 行 最 大 允许 字符 个 数 ， 
字 间 距 ， 行 间距 ， 接 通 打印 机 按 6 号 字 型 打印 以 及 关闭 打印 
机 。 


图 15 句 为 打印 一 个 表 头 ， 其 形式 为 : 
CHR 和 $(127)+CHR$(46+I)+CHR$(J) 
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如 工 =76 时 ， 则 上 式 变 为 : 

CHR$(127)+CHR$ (122)+CHR$ (J) 

3(0 句 是 打印 位 号 和 一 个 4 一 吕 ， 所 以 运行 结果 中 每 一 个 
特殊 符号 前 的 数值 ( 29 一 125) 是 位 号 。 

40 句 打印 的 是 相应 区 号 和 位 号 的 特殊 字符 。 若 在 位 号 后 
面 没有 特殊 符号 打印 出 来 ， 则 说 明 系 统 内 部 在 该 区 位 号 没有 
存 贮 特殊 字符 。 

@ TAB (X ) 是 打印 定位 ,开始 X= 7 关 (K+1) 一 A， 
因 K 和 和 A 开 始 均 未 赋值 ，X =7, 即 最 初 从 第 7 号 位 置 开 始 打 
- 印 结果 。 利 用 K =K + 1 作 计 数 题 ， 以 后 各 项 空 7 个 标准 位 
置 打印 。 

考虑 到 汉字 状态 下 ， 系 统 以 17 个 汉字 〈 即 34 个 字符 ) 为 
模 ， 所 以 在 X 之 =34 后 应 减 去 34， 否 则 打印 位置 混乱 。 

在 打印 全 部 位 号 的 特殊 符号 后 ， 到 换 另 一 个 开始 时 ， 将 
指针 恢复 即 K = 0,A = 0。 

@ 90 句 安排 了 一 个 空 循环 ,控制 打印 纸 空 25 行 ， 这 是 为 
打印 好 一 个 区 的 所 有 特殊 字符 后 ， 安 排 的 跳 页 处理， 这 样 另 
一 个 区 的 94 个 特殊 字符 将 打印 在 另 一 页 新 纸 上 ， 使 输出 结果 
比较 美观 ， 便 于 资料 保存 。 

@ 这 些 特殊 字符 的 调用 方法 :只 要 查 运 行 结果 中 区 位 号 。 
例如 要 调用 工 符号 ， 它 的 区 号 是 124， 位 号 为 112， 故 可 以 用 
以 下 方法 处 理 ; 

10. A$ =CHR$(127)+CHR$ (124) 

+CHR$ (112) 

这 样 就 将 民 符 号 赋 给 字符 串 变量 A$ 中 ， 而 打印 输出 时 

用 : 
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20 PRINT  Ajy 


]PIKE294324 
]UST 


1 REN 区 位 字符 查 技 

4 POKE 2043,22 

6 PKE 1787,1 

8 PKE 1915)3 

16 REN 中 兴学 习 机 EC-1 

和 5 PRIMNT :PRINT 

39 RE "输入 区 号 :1-9" 

申 F 限 让 = 和 9 

晤 限 JMT : pRINT 

58 PRINT TRR( 220 第“ 放 ” 区 " 

55 队 攻 [ 

的 TI- 

了 FF = 相交 S 有 500 

部 4 = 于 

得 F 限 了 =1T09 

198F = 8 60S 肛 50 

1 人 壤 关 = FF 

旬 扔 = OH (127)+ CHR 《0) + CHR 和 人) 
138 IFBe THEN 陈 =9 + STR (60T0 1 
蚤 

1 村 = STR (B) 

158 下 让 < 所 THEN 的 = 人 + STR (60T 
i 


1 站 了 NT 朋 和 于 各; 

1 站 JJ+TITfJ=JTHEN PRIN IJ 
185K=k+1l 

入 下 X>34THEN PRINT 尖 =8X = -3 引 
9 NEXT 

192 人 AT 

1 的 PRINT PRINT :RNT 

2 报 EN 

5 FF>8pNDF<6THNFF =2+F 
si TF>5ANDFITHNFF =29+ 
920 IF> 二 phNDF2THENFF =38+F 
530 和 FF>27 hhNDF 《的 TNF = 31+ 
54 屁 TURN 


为 便于 查找 全 部 中 华 学 习 机 字符 区 位 码 ， 请 用 区 位 字符 
查找 程序 ， 它 的 运行 结果 请 参见 附录 1 中 华 学习 机 字符 区 位 
码 。 


7. 特殊 符号 应 用 


中 华 学 习 机 汉字 系统 中 ， 除 了 存 贮 国标 一 二 级 汉字 外 ， 
还 存 贮 了 好 几 百 个 特殊 符号 ， 如 各 种 标点 符号 ， 算 术 运 算 符 
号 ， 制 表 线 符号 以 及 一 些 特殊 造型 符号 。 调 用 这 些 符号 ， 会 
给 程序 编制 ， 报 表 输 出 带 来 不 少 方便 ， 并 使 画面 、 输 出 形式 
更 加 丰富 多 采 。 

现 举 三 个 应 用 实例 。 

例 1, 设计 一 个 程序 , 要 求 打印 以 下 数学 表达 式 ， 并 得 出 
计算 结果 : 
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6 和 和 = 
3 = 1 +q4 -16 +32 -64 +128 
J 三 
3 = 1626.36359 


对 于 以 上 计算 结果 ， 任 何 一 种 型 号 的 微机 都 能 完成 ， 但 
对 上 述 数学 表达 式 的 打印 输出 ， 却 不 是 每 一 种 计算 机 都 能 完 
成 的 。 

为 了 解决 上 述 数学 表达 式 的 打印 ， 必 须 调 用 中 华 学 习 机 
内 的 特殊 字符 。 如 民 , 小 写 的 1/2，1/4，:2 等 。 

方法 是 从 特殊 字符 库 中 ， 查 找 有 关 符 号 的 区 位 码 值 ， 并 
赋 给 字符 串 变 量 ， 然 后 在 适当 的 地 方 打印 ， 只 要 注意 定位 即 
可 。 

如 ，A$ (1)=CHR$(127)+CHR$(124)+TCHR$ 
(112 ), 就 是 将 二 存在 A$ (1) 中 ， 本 程序 中 其 它 几 个 特 殊 字 
符 分 别 存 在 下 列 单元 中 ， 

A$(2):j 
A$ (3):1/2 
A$ (4):1/4 
A$ (5): 2 

以 上 字符 均 为 小 写 ， 它 们 可 以 在 “打印 特殊 字符 库 ” 一 
文中 找到 。 

下 面 是 用 POkKE1659,1 指令 打印 出 来 的 1 号 字 型 的 结 
果 ; 
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]RUN 
6 状 和 和 妇 
S= 工 1+q -16 +32 -64 +128 
JjJ =1 
S = 1026.3 天 359 


程序 见 特殊 符号 应 用 一 : 
]UST 


5 REM 特殊 符号 应 用 一 

8 DIM 名 (10) 

由 CHR 有 《127) + CHR (124) + (HR 
112 

12 刊 (2) = (HR (127)》 + CHR 有 《123》 + CHR 


) 
4 的 (3) = (HR (127) + CHRS (124) + CHR 
10 所 (= CHR 《127 + CHR (124) + CH 


1 人 = (HR (127) + CHR$ (125) + CHR$ 
和 

各 了 INT T 邹 (86 TB 1 记得 (3 TAB 
反 ); 扣 (4) TB 22)7 损 (5) T 秀 ( 26); 的 (3); 
种 ( 31)7 的 (4) 

5 PRINT T 凶 (人 53 = “5 牛人 1 -16 要 
2 -04 +128” 

6 耻 INT T 秀 ( 6 多 (2)7 = 人 
19=1+ 和 (人 -和 人 (1 
32- 和 中 (0)+ 5 限 (S 了 (12) 
弟 限 INT 

88 PRINT 名 (人 ;3 = “5 

% EM 


0)) + 32 
) 
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请 注意 本 程序 中 特殊 字符 ， 一 定 要 放 在 字符 串 变 量 中 。 
它 不 能 放 在 RE M， PRIN TST%……… 2 INPUT 6.……… 史 
DATA 等 语句 中 。 而 所 有 汉字 则 可 以 放 在 以 上 各 种 形式 的 
语句 中 。 

程序 中 为 使 打印 格式 符合 题 意 要 求 ， 一 定 要 细心 调整 
TAB (X ) 中 的 X 值 。 

整个 一 个 数学 表达 式 是 分 三 行 处 理 的 ,它们 分 别 由 40 句 、 
50 句 、60 句 完成 。 

例 2, 设 计 一 个 程序 ， 打 印 如 下 表 头 : 

]RUN 


人 
】 | 
| 1 
1 朱 国 江 1 
| | 
人 
人 


这 是 一 个 普通 的 表 头 ， 打 印 出 来 不 会 有 太 多 的 困难 ， 主 
要 是 调用 中 华 学 习 机 内 的 特殊 字符 ， 正 如 前 面 指出 的 ， 表 头 


A$ (1): 习 本 程序 中 未 用 

A 下 (2 )，】 本 程序 中 未 用 

A 中 ( 3 ): 中 华 学 习 机 编程 技巧 
A 否 (4):， 朱 国 江 

A$ (5 ): 气象 出 版 社 


A$(6 ): 搬 

A$(7): 一 

A$(8): 刁 

Ap 有 $(9): 目 

A 有 $(10):3 

程序 简要 说 明 : 

制 表 符 “= ” 用 的 较 多 ， 本 程序 不 采用 字符 串 原样 打印 
格式 ， 而 采用 循环 方法 处 理 ， 即 ; 

FORI =1TO 14:PRINT A$(7);:NEXTI 
这 样 可 以 连续 打印 14 个 “=” 符 号 。 

制 表 符 “ ‖ ”， 采 用 两 式 形式 处 理 ， 没 有 汉字 的 行 ， 采 用 
调子 程序 的 方法 打印 ， 即 ， 

50 GOSUB 200 

200 PRINT Ag 有 (0) 和 IDD 3A$(0) 

210 RETURN 

而 在 有 汉字 的 行 ， 采 用 TAB(X ) 函 数 处 理 。 

其 余 制 表 符 采用 TAB (X ) 形 式 打印 。 

程序 见 特殊 符号 应 用 二 

]LST 

3 PRINT : PRINT 

3 REI| 特殊 符号 应 用 二 

8 区 人 租 (9) 

9 = CHR$ (27 + CHR (125) + (HR 


近 几 2 (HR 127) + HR (125) + 人 HR 
{ 
志和 的 (3) = "中 华 学 习 机 编程 技 酝 " 
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折 名 (4) = "米国 江 " 

18 的 (5) = 气象 出 版 福 

4 的 = (HR (127) + CHRS (124) + (HR 
8 


2 角 (7)》 = CHR 《127》 + CHR (124)》 + CHR$ 
8 


24 名 (8) = HR 127) + CHR 124) + CHR 


(1) 
26 的 (9) = HR (127) + CH (124) + CH 


(8) 
0 = 《HP$ (127) + CHR (1 + 【《 恨 
$ (72 
人 CHR$ (127)》 + CHR$ 《124) + CHR$ 
芭 


和 PRINT 各 (6); 
和 F 限 I=1T0 1 PRINT 各 人 5 EX 
各 限 INT 移 (8): 了 INT 
和 9 了 疏 JNT 铝 (@) TB 人 3 的 (3 ”5 的 (0 
50 603UB 200 
52 PRINT 各 (@) TRB( 13) 有 (人 
rn 了 (0 
55 603 肌 200 
1 PINT 秽 (@); TB 人 1) 55 “ ;的 
0 
了 8 PINT 各 (9) 
如 FRI=1T0 芭 :PRINT 和 的 (7 NENTT 
各 恨 JNT 名 (9) 
198 END 
28 限 ] 册 入 ( 人 六 
43 A (0 ) 
210 人 RETURN 
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例 3， 编 制 一 个 程序 ， 要 求 用 特殊 符号 支 作为 表 头 的 边 
框 ， 格 式 如 下 ; 


]RUN 


衣 让 女人 畜 女 丰 丰 艳 丰 让 信友 让 女 麻 


中 华 学 习 机 编程 技巧 


文 
太 三 
广 二 
太 朱 国 江 广 
女 社 评 
食 盔 


编制 方法 同 例 2 ， 利 用 输出 空格 函数 (S PC ) 也 很 自由 
灵 便 ， 程 序 见 特 殊 符 号 应 用 三 : 


]UST 


3 PRINT :PRINT 


5 R We 
8 JJ 各 (5 
18 的 (1) = (127) + CR (125) + HR 


tl 
和 由 全 作 学 习 机 怪人 


f 人 > 
- 记 
-一 -一 ~- 一 


折扣 (4) = " 抄 国 江 ” 

8 的 (5) = "气象 出 版 社 " 

和 60S 有 B 29 

咎 限 IMT 

和 9 60SUB 150 

5 限 JNT 各 (1); ThB( 人; 的 (3)3” “多 () 
的 60SUB 150 
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了 限 INT SPCC 687 俘 (1); SPCC 1) 名人 4 3 
人 0) 全 (1) 
中 了 RINT 租 人 全 (的 ); 租 (9 “ 澳 


188 60SU8 200 

1 的 PRINT 

1 END、 

158 PRINT SP 9 前 (1 SPCC 28) 扣 (1) 
168 RETURN 

2 的 F 腿 I= 1T010: 了 INT 各 (5 NEXTI 
218 RETURN 
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1， 销售 情况 统计 
已 知 某 电脑 公司 1 至 4 月 份 销售 计算 机 情况 如 表 5.1。 


表 5.1 
IBM/PC 长 城 0520 中 华 机 


31000 28600 1000 
: 业 二 一 : 


130 














| 160 
220 
250 




















试 编制 一 个 销售 统计 程序 。 

程序 可 以 分 四 段 设 计 : 

(1) 销售 计算 机 情况 

用 二 维 数组 比较 方便 , 见 程序 中 的 15 一 80 句 。 对 于 工 个 
月 份 ， 丁 种 机 型 的 销售 台数 15 一 80 句 是 一 个 通用 模式 。 

(2) 计算 机 价格 

因为 只 有 三 种 价格 ， 安 排 一 重 循环 即 可 , J 为 循环 变量 ， 
价格 放 在 S(J ) 中 ， 丁 =1,2,3。 

(3) 营业 额 计算 

用 二 重 循环 处 理 ， 营 业 额 放 在 代数 组 的 T(1),T(2) 和 
工 (3), 工 (4) 中 ， 分 别 代表 每 月 销售 额 ， 而 全 公司 四 个 月 份 
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的 总 营业 额 放 在 S 中 。 


(4) 查找 营业 额 

用 键盘 输入 月 份 ， 直 接 打印 该 月 份 对 应 的 T ( I ) 值 即 为 
所 求 ，I =1,2,3,4。I = 0 时 用 条 件 语句 判断 打印 S 值 。 

现在 来 写 程序 : 


首先 把 计算 机 出 售 的 数量 放 在 200 一 210 句 的 DATA 语 
句 中 。 而 把 计算 机 的 单价 放 在 220 句 中 。 

用 20 一 120 句 给 数组 A 和 数组 S 赋值 ,并 打印 出 这 两 个 数 
组 的 值 。 

130 一 190 句 计算 营业 额 ， 并 打印 出 结果 。 

250 一 260 句 为 查找 营业 额 ， 并 打印 结果 。 

完整 的 程序 〈 见 H 53) 及 运行 结果 : 


和 第 各 入 [DJ) 

5 PRINT 入 IJ 
6 NEXT 本 

人 限 INT 


81 耻 风 
8 PRINT “计算 机 价格 " 
条 限 INT 

% [中 J=1T03 
199 RE S(]J) 


110 PRINT SJ)”” 
120 ENT 可 


15 PRIN 
127 PRINT “销售 总 营业 额 ” 
1289=0 

129 了 IMT 

I38 FI=1T014 
TI) = 


116 全 人 可 
188 PIN“T( = 5T() 


1% 限 INT 
1% 了 INT "公司 总 额 ”39="i 

299 只 Th 119, 126, 139, 149， 156, 168 

218 DTR 299,216,220,230, 240,256 

220 DhTN 31999,28680, 1099 

230 REN 查 拔 各 月 营业 总 额 

235 限 IMT 

250 INPUT I 

255 IFI=0THEN PRINT "59: 60T0 288 


208 PRINT I ”月份 销 信 总额? “iT(T): 


60T0 250 
288 ED 
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]RUN 

销售 计算 机 情 吕 
1 甸 120 1 
14 150 160 
288 210 220 
238 24 25 


计算 机 价格 
31900 


28600 
1000 


销售 总 营业 镶 


(1)=6972000 
(2)=8799000 
(3)=12426000 
(=14244898 


公司 总 额 $=42432000 


1 有 总 额 6972008 
2 有 790000 
3 有 额 12426800 
有 额 14244890 
So 


几 点 说 明 : 
(1) 请 注意 20 一 80 句 的 格式 安排 ,50 句 最 后 面 的 分 号 4; ?” 
不 能 少 ,70 句 的 PRINT 不 能 省 ， 否 则 打印 出 的 结果 不 是 一 


列 ， 就 是 一 行 。 
(2) 140 句 T(I)=0， 和 128 句 S = 0 不 能 省 ， 否 则 再 次 
运行 本 程序 会 发 生计 算 错 误 。 


(3) 本 程序 具有 通用 性 ， 既 可 以 统计 营业 额 ， 也 可 以 统 
计 产 量 或 者 产值 ; 既 可 以 统计 一 个 单位 不 同月 份 的 几 种 产品 ， 
也 可 以 统计 几 个 单位 的 若干 种 产品 。 而 只 要 改动 I,J 值 并 赋 
给 变量 A(I，J 丁 ) 以 新 的 内 容 。 

(4) 为 使 本 程序 对 增加 数据 有 更 多 的 灵活 性 ,可 以 将 
本 的 终 值 加 大 ， 例 如 I =12， 丁 = 7 ， 则 表示 可 以 处 理 12 个 
月 份 ，7 种 机 型 的 销售 情况 ， 当 然 ， D ATA 语句 的 信息 也 
应 相应 增加 。 

(5) 本 程序 还 可 以 进一步 完善 ， 例 如 月 份 注 上 汉字 ， 机 
型 注 上 英文 或 中 文 名 称 ， 再 加 上 表格 ， 会 使 输出 格式 更 为 美 
观 。 这 项 工作 留 给 有 兴趣 的 读者 完成 。 

下 面 提供 一 个 参考 程序 ， 只 要 将 原 程 序 280 句 的 END 删 
去 ， 改 成 2830PRINT ， 然 后 加 300 一 410 句 的 程序 段 ， 即 可 
打印 一 个 计算 机 销售 情况 的 表格 。 若 需要 打印 表格 输入 工 = 
0 即 可 。 完 整 的 程序 清单 〈 见 也 53-1) 及 运行 结果 。 


2》 RE 司 3-1 ， 
站 入 人 3) 放 销 售 量 ,3(3》 放 价格 ,T(4) 中 这 营 
的 DA 人 3)S(3)T(g) 


er 
〈“- 妨 


PRINT “销售 计算 机 情况 ” 
限 IMT 


[中 I=1T04 
[中 J=1T03 
隆 各 入 IJ) 

PRINT 入 TDJ)” 
EXT 可 

限 IMT 

NEXT 


限 If 
限 INT “计算 机 价格 
限 IT 


鸭 可 下 节 芝 总 杞 迎 号 窑 写 三 


1 的 作 各 JJ) 
1 PRINT SJ)”“ 


12 限 INT 
127 PRINT “销售 总 营业 锋 ” 
1%S=8 


129 RPRINT 
138 FRI=1T04 
1 TD) = 


1f8 NEXT 了 

189 PRINT“T 3) 江 ( 了 ) 
185 $ = 9+ TID) 

198 NEXT 了 


避 INT 


] 邱 PRINT "公司 总 额 ”3"S= ”5 
208 0NT 119, 129, 136， 148， 156, 168 
210 的 作 209，219,220,239,249, 250 
228 了 1 0 
238 REI 查找 各 月 营业 总 叙 
235 耻 IMT 
259 JINPUT 
255 IF IT-=8THEN .PRINT "=";S: 60T0 288 
269 PRINT ID 月份 销 售 总 额 “iT 了) 
的 T0 250 
288 PRINT 
380 PRINT ”r 一 T 一 一 T 一 一 T 一 一 
3 相国 用 本 
328 60SUB 400 
3 F 限 1-1T01 
3 和 PRINT “| ”和 | 
350 F 腿 J= 1T03 
368 PRINT 入 JJ) |” 
378 NEXT 了 
388 PRINT 
3 IFiz4THEN 限 INT "上 一 上 一 一 上 一 一 
土 一 一 了 :60T0 394 
392 609U 4 的 
3 NENT 
3% 约 
4 PRINT“ 上 一 十 一 一 二 一 一 二 -下 
418 RETURN 
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]RUN 
销售 计算 机 情况 


1t0 120 13 
148 156 108 
288 210 220 
238 249 250 


计算 机 价格 


31008 
28080 
100 


销售 总 党 业 祝 


下 =6972090 
TO) 
TS)=12426000 
下 全 = 雪 244000 


公司 总 额 $-42432000 


?1 


人 
2 月 从 销售 和 额 879000 
有 人 额 12426908 
有 额 14244800 
So 


下 生理 
人 


11 46 11 148 | 


12 | 二 1150 16 | 


13 | 29121480 1220 | 


14 1238 1248 1254 | 


2. 简易 售 货 程序 


这 是 一 个 简易 而 实用 的 售 货 程序 。 它 可 以 自动 计算 顾客 
购买 某 一 种 商品 及 数量 的 金额 ， 也 可 以 计算 买 多 种 商品 和 数 
量 的 总 金额 。 并 且 可 以 正确 结算 ， 如 果 顾 客 钱 付 少 了 ， 计 算 

会 告诉 营业 员 ， 通 知 顾客 重新 付 钱 ， 反 之 ， 如 果 顾 客 钱 付 
多 了 ， 计 算 机 会 告诉 营业 员 应 找 还 顾客 的 钱 ， 这 样 ， 营 业 员 
既 不 要 算 帐 ， 也 避免 了 找 钱 可 能 出 现 的 差错 。 这 对 减轻 营业 
员 劳 动 强度 ， 提 高 工作 效率 ， 减 少 帐 目 差 误 ， 维 护 商 店 信誉 
都 是 有 好 处 的 。 

变量 说 明 : 

Ed$ (I) 中 存 贮 货 物 名 称 。 

C(I ) 中 存 贮 货物 单价 。 

DATA 区 中 按 货物 名 称 及 货物 单价 顺序 存放 。 

N$$ 是 购物 名 称 。 

N 是 购物 数量 。 
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S 是 购物 总 共 金 额 。 

M 是 顾客 应 付 的 钱 。 

Q 是 找 还 顾客 的 钱 。 

设计 思想 : 

本 程序 共 分 三 段 ，20 一 70 句 为 第 一 段 ， 读 存 商品 名 称 和 
单价 ,80 一 160 句 为 第 二 段 ， 计 算出 售 商 品种 类 、 数 量 和 金额 ， 
170 一 200 句 为 第 三 段 ， 找 退 顾 客 的 金额 。 

技巧 安排 : 

本 程序 共有 4 处 技巧 ; 

(1) 在 110 句 中 安排 了 一 个 判断 语句 , 如 果 顾 客 购买 的 货 
物品 称 N$ 与 商店 中 存 贮 的 货物 名 称 E$ (1I ) 一 致 ， 则 让 1 
赋 给 K ， 这 样 ,在 130 句 中 就 可 以 用 CCK )XN 计 算 第 工 个 商 
品 的 金额 。 

〈《2) 也 是 在 110 句 中 ， 当 选中 某 种 商品 后 ， 让 10 赋 给 I 
(本 例 以 10 种 商品 为 例 )， 这 样 ， 在 执行 120 句 时 , 工 自 动 加 1， 
变 成 11， 从 而 立即 跳出 循环 ， 减 少 了 循环 的 次 数 ， 提 高 了 程 
序 的 执行 速度 。 

(3) 180 句 的 安排 基于 两 个 方面 考虑 ， 加 0.001 处 理 ， 是 
为 了 保证 计算 的 精度 ， 避 免 差 错 ; 用 取 整 函数 INT 乘 100 和 
再 除 100, 是 为 了 金额 计算 准确 到 分 。 

(4) 145 句 安排 了 C(K )= 0 ,原因 是 防止 顾客 购买 的 货 
物 商 店 没 有 或 者 营业 员 在 输入 货物 名 称 错误 时 ， 计 算 错 误 。 
读者 可 以 自行 试验 ， 去 掉 145 句 将 是 什么 情形 。 

]LIST 


54 
沁 守 遇 作 做 程序:E8(19) 丰 让 信物 名 各 ,1 
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) 存 放贷 物价 格 
弛 LE 舱 
2 DIE(1)C(10》 
3 FRI=1T0 甸 
和 RE 了 ET)C(T) 
全 PRINT ET ” “CT) 
5 NEXT 1 
66 DTh BO0K;,3.24,TNK0.47,DRSK;92.37,PEN 2 
.34, 骨 TcH,210 
76 DRTA PIGIU8.46,NIURUh, 1.35,KUZT4.87 YI 
SHAN6,5.78,LIZT 1.35 
8 INPUT "输入 购买 化物 名 称 各 和 数量 :者 
N 


各 正 融 =" 中 NMN=bTHEN 155 

19 FRI=1T048 

1 IF 和 =E4(I) THEN LETK = JI:I= 1 

120 NEXT 

13 了 RINT 人 号 避 ;” "购买 数量 “j; 
六 金额 $=” iC(K) 本 上 

和 了 ]N 

4-=9S+C(K) 

145 (tk) = 

150 60T0 8 

155 PRINT 

169 INT “总 共 金 客 :S="; 

178 IJNPUT "顾客 应 付 的 钱 : 必 " 济 

1860= INT (人 -3)*# 100+8.901) 7 10 

185 REN 顾 容 付 钱 不 足 转向 178 再 重 付 钱 

19% IFQCbTHEN 60T0 17g 

288 PRINT“ 找 还 顾客 的 钱 : 0= ”5 

210 EM 


199 


JSk 42.37 
PEN 2.34 
拘 TOH 210 
PIGIU .4 
全 WA .35 
KUI 4.87 
YISHANG6 5.78 


输入 购买 化 物 名 称 My 和 数量 N:B00K,5 
物 名 称 BOOK 购买 数量 5 金额 $=16.2 


购买 货物 名 称 属 和 数量 N:LIZI, 12 
名 称 LIZ] 购买 数量 12 金额 $=16.2 


人 购买 货物 名 称 避 和 数量 N:0,0 


> 划 > 三 
车 >- 


2 各 扣 - 坟 


实例 1 中， 顾客 购 货 总 共 金 额 37 .1 元 , 若 顾客 只 付 32 元 ， 
则 计算 机 会 通知 营业 员 叫 顾客 重 付 , 当 顾 客 重新 付款 38 元 时 ， 
计算 机 会 正确 找 还 顾客 0.9 元 。 
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运行 实例 2 : 


]RUN 

BOOK 3.24 

IK .d 

DhSK 和 . 3 

PEN 2 和， 

UTCH 218 

pPIOIU . 

NT 1.35 

KUZI 4.87 

YISHING 5.78 

LIZI 1.35 

输入 购买 货物 名 称 各 和 数量 N:BDDK,26 
货物 名 称 BOUk 购买 数量 26 全 额 9-64.8 


输入 购买 货物 名 称 M8 和 数量 N:DhSky 2 
物 名 称 DASK 购买 教 量 ? 金 客 4=84.74 


购买 货物 名 称 忆 和 数量 N:HHJIJ,38 
名 称 HHJJ 购买 才 量 36 爹 阁 j-0 
人 入 购买 贷 物 名 称 避 和 数量 N:0,0 


其 金额 :S=149.54 
人 
技 还 跨 客 的 钱 : 0=.46 


下 
此 > 入 >>- 


| 
| 


:ED 者 > 本 


实例 2 中 ， 输 入 HHJJ 货物 名 称 ， 这 是 数据 区 中 所 没有 
的 ， 即 使 输入 进去 ， 也 不 会 计算 金额 ， 从 而 避免 了 不 应 有 的 
差错 ， 如 果 没 有 145 句 CCI)= 0 的 安排 ， 则 将 出 现 面 魏 全 

非 的 情况 。 
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3， 支票 查找 统计 程序 
假设 有 以 下 支票 (或 存折 ) 数据 : 


支票 号 月 一 日 一 年 金额 

1025 1.0182 10 .98 
1027 4.0182 39.35 
3723 4.1283 95.56 
4987 4. 1283 80.47 
8301 7. 0384 50.83 
9741 9. 1185 60.32 


试 编 一 个 B AS IC 程序 ， 要 求 : 

(1) 统计 所 有 支票 金额 总 数 ; 

(2) 输入 日 期 ， 能 查找 该 日 期 支票 ， 若 相同 日 期 有 多 张 
支票 ， 也 能 正确 查找 ; 

(3) 输入 支票 号 码 ， 查 找 该 号 码 支 票 情况 ; 

(4) 输入 日 期 和 金额 ， 查 找 同 时 满足 日 期 和 金额 的 支票 
信息 ， 从 而 区 分 同一 日 期 不 同 金额 的 支票 情况 ; 

(5》 列表 打印 全 部 支票 信息 。 

分 析 : 由 以 上 要 求 可 知 , 这 是 要 求 编制 一 个 多 功能 检索 、 
统计 、 列 表 的 程序 。 

为 了 完成 上 述 程序 设计 要 求 , 我 们 先 画 出 一 个 粗略 框图 ， 
见 图 5.1。 

对 照 图 5.1， 我 们 分 段 写 出 相应 程序 : 

由 于 支票 共有 6 张 ， 每 张 有 3 个 信息 ， 所 以 选择 二 维 数 
组 CC(I,J) 比较 方便 ，C (IT, 1 ) 存 贮 支票 号 码 ，C (TI，2) 
存 贮 日 期 ， 以 MMDDYY 形 式 记 录 ， 其 中 MM 代 表 月 份 ， 
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30 一 70 


安排 二 重 循环 读 存 信息 





用 GOTO 语句 返回 总 控 
图 5.1 


DD 代表 日 期 ，YY 为 年 ， 如 4.1283 表 示 1983 年 4 月 12 日 ， 
C ([,3) 存 贮 金额 ， 工 为 第 工 张 支票 (本 例 工 =1,2,3，……， 
6)。 而 对 二 维 数组 记录 的 读 取 ， 用 二 重 循环 最 为 合适 ， 故 读 
取信 息 的 程序 见 H 55: 
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REM H55 

II (00 3) 
f 妇 ] = 
F 呐 J 
RE 各 CD 


NEXT : 
DT 1825,1.6182， 16.98， 1627,4.6182,39.35 
了 NT 3723,4.1283,95.56,4987)4.1283 389.47 

198 0hTh 83917.6384,59.83,9741 9.1185,68.32 

程序 H55 中 80 一 100 句 DATA 语 句 ， 是 放 的 支票 信息 ， 
按 支 票 号 、 日 期 和 金额 次 序 顺 序 存 放 。 所 有 NEXT 后 面 
的 循环 变量 可 以 省 去 ， 以 利 提高 执行 速度 ， 中 华 学 习 机 ， 
APPLE-I， 紫 金 -I 以 及 IBM PCVXT 机 都 有 此 种 功 
能 ， 但 PC-1500 机 不 可 以 省 去 N 匡 XT 后面 的 循环 变量 。 

用 开关 控制 转向 语句 ON 《〈 算术 表达 式 》 GOTO “第 
一 个 语 名 标号》 ……… 《第 和 个 语句 标号 ,来 处 理 整 个 程序 的 
连接 ， 实 现 总 控 。 

这 是 由 于 本 程序 设计 要 求 能 实现 多 功能 检索 ， 用 上 述 开 
关 语 句 ， 可 以 根据 输入 的 不 同 要 求 ， 方 便 而 又 灵活 地 实现 不 
同 项 目的 查找 ， 总 控 只 有 三 行 : 

116 INPUT “这 


128 乓 X60T0 149200 320420470 
138 END 


or 


Ti 
T0 3 
) 


巍 备 辣 杰 闻 关 空 六 


例如 ， 输 入 X= 1 时 ， 执 行 120 句 转向 140 句 ， 输 入 X = 
2 时 ， 转 向 200 名 ……; 输入 X= 5 时 ， 转 向 470 名 ;而 
当 久 之 = 6 时 ,相当 于 120 句 不 存在 ， 而 执行 120 句 的 下 一 句 ， 
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即 130 句 结束 。 

本 程序 设计 的 第 一 个 要 求 是 累加 所 有 支票 金额 的 总 数 ， 
这 个 工作 可 由 140 一 180 句 来 完成 ， 即 由 循环 语句 来 实现 。 在 
循环 体外 赋 初 值 S = 0 ， 和 否则 重新 运行 程序 将 发 生 错误 ， 循 
环 体 中 求 和 ， 用 S =S +C(I，3) 实现 ， 因 为 C(I，3) 是 指 
第 工 张 支票 中 第 3 个 纪录 的 值 ， 该 值 已 经 在 第 一 段 程序 中 存 
贮 好 ， 系 指 支票 金 骆 ， 工 从 1 到 6 循环 ， 从 而 完成 所 有 支票 
金额 的 累加 ， 循 环 完成 打印 出 所 有 支票 的 金额 总 数 ， 见 程序 
56 ， 

138 RENH Hpb 

199=8 

154 F 限 I=1708 

1663=S+CD3) 

174 NEXT I 

189 PRINT “总 区 "5 

198 60T0 1 

程序 日 56， 在 完成 第 一 个 功能 打印 金额 总 数 S 后 ， 执 行 
190 句 再 转向 110 名 ,返回 总 控 ， 从 而 可 以 再 从 键盘 输入 X 值 ， 
而 灵活 转向 其 它 功能 的 查询 。 可 以 设想 ， 其 它 各 功能 程序 段 ， 
在 完成 各 自 的 功能 后 ,一 定 要 安排 Xx x x GOTO 110 语 句 ， 
以 便 返 回 总 控 ， 实 现 整 个 程序 的 连接 和 控制 。 

本 程序 的 第 二 个 要 求 是 输入 关键 字 日 期 ， 应 能 查找 出 该 
日 期 的 所 有 支票 信息 ， 此 项 任务 由 200 一 310 句 完成 ， 请 看 程 
序 H57， 


198 REN H57 
298 JNPUT “输入 日 期 ( 呈 .DDYY) 困 
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308 了 INT 
310 60T0 149 


棕 序 H57 稍 许 复杂 一 点 ， 但 还 是 能 看 懂 的 ， 现 在 ， 让 我 
们 来 代替 计算 机 运行 一 下 该 程序 段 。 

现在 假设 程序 已 返回 总 控 110 句 ， 从 键盘 输入 2 ， 则 转 
疝 200 句 ， 提 示 告 诉 我 们 输入 日 期 ， 如 此 时 要 查找 1983 年 4 
月 12 日 的 支票 ， 即 键入 4.1283， 进 入 210 名 循环，I= 1， 
CU，2) =C(1，2) =1.0182， 它 和 输入 的 值 D=4.1283 不 
相等 ， 执 行 230 句 转向 260 句 加 步 长 I =2, 再 循环 上 去 ， 此 时 
C(L 2)=C(2;2)=4.0182， 又 不 等 于 D ， 再 循环 过 去 ， 
I=3， 则 C(I，2) =C(3，2) =4.1283, 此 值 与 输入 的 D 值 
相等 ， 转 向 240 句 ， 注 意 此 时 上 =3, 执 行 240 一 260 句 一 个 小 、 
循环 后 ， 即 将 打印 出 第 三 行 ，1,2, 3 三 列 的 信息 ， 即 打印 第 
三 张 支票 的 全 部 信息 : 

3723 4.1283 95.56 

执行 270 句 空 一 行 ， 执 行 280 句 自动 返回 到 230 句 再 转向 
290 句 ， 加 步 长 ， [=4, 进 入 220 句 ， 此 时 C=(I，2) =C(4， 
2)=4.1283， 它 也 等 于 输入 的 D 值 ， 同 上 分 析 又 打印 出 第 4 
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张 支票 C(4,1),C(4,2),C(4,3) 的 信息 ， 即 : 

4987 ”4.1283 ”80.47 

以 后 的 执行 情况 ， 同 上 分 析 ， 显 然 ， 继 续 循 环 查 遍 所 有 
余下 来 的 纪录 , 再 也 找 不 到 日 期 为 4.1283 的 信息 ， 脱 离 290 句 
循环 后 ， 空 一 行 ， 执 行 310 名 返回 总 控 ， 等 待 其 它 信 息 的 查 
找 。 

总 之 ,本 程序 段 功能 是 能 找 出 相同 日 期 的 所 有 支票 信息 ， 
若 某 一 日 期 具有 一 张 支票 ， 就 找 出 该 张 信 息 。 

本 程序 段 有 两 个 地 方 值得 提 一 下 ， 一 是 240 一 260 名 一段 
小 循环 , 这 种 安排 是 一 种 技巧 ， 因 为 当 I 一 定时 , 只 要 进行 ] 
循环 , 即 能 打印 工行 了 列 的 信息 (本 = 1,2,3)， 而 省 去 用 [、] 
两 重 循环 的 麻烦 ;二 是 在 循环 中 使 用 了 转子 语句 GOSUB / 
RETURN ， 这 是 比较 合适 的 。 因 为 ， 要 想 在 一 个 程序 的 
不 同 地 方 多 次 使 用 同一 程序 段 ， 而 且 要 求 用 完 以 后 返回 原 处 
的 话 ， 用 转子 语句 是 十 分 方便 的 ， 这 样 ， 程 序 写 得 可 以 更 加 
简洁 、 节 省 ， 因 此 ， 这 里 的 写法 也 是 一 个 技巧 。 

现在 ， 我 们 来 看 本 题 的 第 三 个 要 求 ， 它 在 程序 上 是 如 何 
实现 的 ， 请 看 程序 互 58 中 的 320 一 410 句 : 


REH H58 
320 INPUT SB 
3 [中 I=1 帮 
IF ((TD1) = 加 硬 
NEXT 


了 INT AITHOUT: 60T0 1 
310 [中 J=1T03 

388 限 INT CDJ) 

398 KMNT 
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480 了 RINT 
410 60T0 110 


这 段 程序 比较 简单 ， 输 入 支票 号 码 N 后 ， 进 入 330 一 350 
名 循环 中 进行 查找 ， 若 满足 340 句 条 件 即 找 到 相应 的 支票 号 
转向 370 句 开始 的 另 一 个 循环 , 打印 该 支票 号 码 的 信息 ; 若 找 不 
到 则 在 第 一 个 循环 完 即 打印 4 没有 2 的 信息 ( WITHOUT)， 
然后 再 返回 总 控 。 

从 技巧 上 看 ，330 一 350 句 安排 也 是 恰当 的 ， 因 为 一 经 查 
找到 ， 立 即 跳出 循环 ， 从 而 减少 了 无 效 循 环 的 次 数 ， 这 对 大 
量 信息 的 查找 更 显 出 其 优越 性 。 另 外 ， 本 程序 段 不 需要 像 第 
二 个 程序 段 那样 ， 安 排 GOS UBV/VRETURN 语句 ， 因 为 支 
票 号 码 是 各 不 相同 的 ， 找 到 某 个 号 码 只 有 一 种 可 能 ， 一 经 找 
到 打印 后 立即 返回 总 控 。 

本 题 的 第 四 个 要 求 ， 容 易 由 程序 段 书 59 来 实现 , 见 420 一 
460 句 : 


418 REN H59 
426 INPUT “ 训 入 日 期 和 金额 (只 .DDYYAND MRPK):“ 实 
咱 


438 F 了 RI=1T06 

448 F CD2) = DAND CGI 3) = NTHEN 370 

458 .NEXT 了 

408 PRINT “NOT FOUNDI”: 60T0 110 

本 程序 段 完 成 对 日 期 和 金额 都 满足 要 求 的 支票 进行 搜索 ， 
这 主要 由 440 句 的 条 件 语句 来 实现 ， 只 有 日 期 和 金额 两 个 条 
件 都 符合 时 ， 才 算 查 找到 ， 和 否则 循环 再 找 。 而 一 经 找到 则 转 
向 370 句 开始 的 另 一 个 循环 ， 那 是 一 段 打 印 程序 ， 这 里 处 理 
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也 是 好 的 ， 它 可 以 省 去 重复 安排 打印 程序 段 的 处 理 ， 程 序 比 
较 简 炼 。 如 果 两 个 条 件 有 一 个 不 符合 或 全 不 符合 , 则 由 460 和 名 
出 示 “ 找 不 到 ”信息 (NOT FOUND!')。 

440 句 的 写法 也 是 一 个 技巧 ， 否 则 要 用 二 个 条 件 语 句 处 
理 。 

本 题 最 后 一 个 要 求 ， 是 打印 报表 ， 由 程序 H60 完 成 。 


REI H68 
478 PRINT TB( 19);# 报表 可 " 

489 了 INT 

498 605UB 600 

588 PRINT "| 支票 号 日 期 册 金额 上 
510 60SUB 600 

520 FRI=1T06 

538 FIRJ=1T03 

548 PRINT “0(T 了 JJ) “1 

556 NEXT 本 


010 RETURN 


本 程序 段 阅 读 不 会 有 太 多 的 困难 ,470 句 打印 一 个 表 头 ， 
490,510, 570 句 都 是 调子 程序 ， 而 子 程序 安排 在 600 句 ， 它 
仅 为 一 句 画 虚 线 ， 画 好 后 立即 返回 到 调 它 的 那 一 语句 的 下 一 
句 。52 0 一 580 句 两 重 循环 ， 是 打印 工行 ， 丁 列 的 全 部 支票 信 
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息 。 

本 程序 段 注 意 表 格 打印 技巧 上 的 安排 ， 主 要 是 合理 地 安 
排 了 GOSUB /RETURN 语句 ， 虽 然 子 程序 十 分 简单 ,但 
可 以 通过 本 程序 段 的 学 习 ， 掌 握 一 种 简便 有 效 的 打印 表格 方 
法 ， 这 一 点 比 用 作 图 语句 绘制 表格 要 方便 灵活 。 

最 后 ， 我 们 再 看 一 下 本 程序 的 汉字 提示 ， 它 主要 由 20 名 
以 及 620 一 680 句 完成 ， 见 程序 H61: 


]LUST 

夫 RENH 1 
2 00SU 6020 
626 PRINT “输入 1: 
630 PRINT “输入 2: 家 
648 了 RINT | 


650 PRINT “条 
租金 额 的 支票 


668 PRINT "输入 5: 打 
678 PRINT “输入 6: 结 束 " 
686 RETURN 


程序 这 样 安 排 有 几 个 好 处 : 

它 是 本 题 的 菜单 提示 ， 实 际 上 是 告诉 使 用 者 本 程序 有 
五 个 功能 。 

。 它 也 是 本 程序 操作 说 明 ,例如 ， 输 入 1 统计 金额 总 数 ， 
输入 6 结束 。 

本 程序 中 多 处 使 用 了 GOS UB /RETURN 语句 ,我 们 
可 以 概括 一 下 它 在 程序 设计 中 的 要 领 ; 

(1) 在 主 程序 中 应 当 恰当 安排 调用 点 ， 作 好 调用 准备 ， 
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以 及 调用 返回 后 的 必要 处 理 ; 


(2 


) 对 子 程序 则 应 充分 注意 到 其 逻辑 上 的 完整 性 和 程序 


的 通用 性 。 
按照 这 些 要 领 ， 读 者 仔细 分 析 一 下 本 程序 中 几 段 调用 子 
程序 的 地 方 ， 特 别 是 200 一 310 句 的 程序 段 ， 也 许 是 有 益 的 。 
现在 ， 我 们 可 以 将 本 题 的 解 题 程 序 完整 地 写 出 来 了 ， 见 


机 62， 


REN H62 
REN 支票 查找 统计 程序 
60SUp 620 


II 0(03) 


NEXT : NEXT 
叭 T 几 1025,1.0182，18.98，1827 4.0182,39.35 
蕉 Th 3723,4.1283,95.50，4987)4.128380.47 


19 区 作 83817.0384,50.83,97419.1185;08.32 
110 INPUT 和 

120 只 X 60T0 140200,320420470 

138 EN 


1]463=8 

190 [了 TI=1T00 
160 3 = 9$+ CTD3) 
1f8 NEXT 

188 PRINT "总 元 : “5 
19% 60T0 119 
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F[ 足 IJ=1706 
IF.C(D2) = D THEN 60SUB 248 
60T0 29 


INPUT 入 期 (全 .DDYY): 
1 T0 
型 


RETURN 
MENT 

PRINT 

60T0 119 
INPUT“ 敲 入 支票 号 (NUMBER):“ 训 
F 限 TI=1T06 

IF CD = NTHEN 378 

NEXT 

PRINT WITHOUT": 60T0 110 

F 中 J= 1T03 

PRINT (DJ 

MEXT ] 

PRINT 


60T0 119 
INPUT “项 入 日 期 和 金额 (网 .DDYYAND MARK): “; 


0 FRI=1106 


IF CD2) = D 人 DCGD3) = 人 THEN 370 
NEXT 

PRINT “NOT FOUNDL: 60T0 工夫 

PRINT ThB( 19);4k 报表 可 " 

PRINT 

603UB 608 


588 PRINT "1 支 村 
8 003UB 6000 


1 日 期 1 金额 下 


也 


088 RETURN 


豆 
和 


让 
Y ) 找 该 日 期 支票 
民 ) 找 痰 支 素 
让 攻 撒 基色 


上 


滩 岂 到 名 
问 吉 对 


浊 


ET 
cm -CC ceo 六 > 


下 更 更 P 站 
-下 > 
沪 8CO>dHCO > 
?lt 省 和 北 认 
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# 
输入 日 期 (全 .DDYY): 4.0182 
1827 4.0182 39.35 


扔 
输入 日 期 (后 .DDYY): 4.1283 
3723 4. 1283 0%5.56 
4987 4.1283 8.47 


拉 
胡 和 支票 号 (NUIBER): 8361 
8391 7.0384 59:83 


所 

蕊 和 日 期 和 金额 (出 ,.DDYYRND MRK): 4.1283 
9905.56 

3723 4.1283 全 .56 


一 一 一 一 ~ ~ 一 -一 -一 一 ---- 一 -一 一 -- 一 一 -一 一 -一 


1 4498 1 94412830 8.47 1 


1 8 84 5.831 


4. 发 工资 程序 


财务 科 从 银行 领取 工资 总 额 时 ， 需 要 有 各 种 票面 的 钞票 
才能 顺利 分 发 。 试 编 一 个 程序 ， 使 财 发 科 从 银行 领 到 的 各 种 
票面 的 钞票 和 硬币 的 数目 最 为 合理 〈 既 能 顺利 分 发 ， 张 ( 枚 ) 
数 又 最 少 )。 

解 : 

(1) 票面 变量 单元 设置 

K( 工 ) 一 一 存放 各 种 票面 额 ， 工 = 1, 2 ，…… ，9，,10 
K(1) 一 一 10 元 票 氏 (2) 一 一 5 元 票 人 (3) 2 元 票 
K(4) 一 一 1 元 票 KK(5) 一 一 5 角 票 上 (6) 一 一 2 角 票 
K(7) 一 一 1 角 票 人 (8) 一 一 5 分 币 K(9) 一 一 2 分 币 
K(10) 一 一 1 分 币 

(2) 其 它 变量 单元 设置 





N 一 一 人 数 
一 一 工资 数 
Q_ -一 工 资 总 额 


(3) 票面 张 数 变量 单元 设置 
A(T) 一 一 存放 各 种 票面 张 数 ,[ = 1,2,………10。A(l) 一 一 
10 元 票 的 张 数 ，A(2) 一 一 5 元 票 的 张 数 ，A(3) 一 2 元 
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票 的 张 数 ，…… ，A(9) 一 一 2 分 硬币 的 枚 数 ，A(10) 一 一 
1 分 硬币 的 枚 数 。 
(4) 循环 变量 控制 
J 了 变量 控制 读 取 工 资 数 
I 变量 控制 : 读 各 种 票面 值 ， 处 理 表面 张 数 ， 打 印 各 种 
票面 值 。 
(5) 主要 程序 段 设 计 思 想 
将 工资 数 分 成 各 种 票面 数 ， 是 本 程序 设计 中 主要 考虑 的 
问题 。 
方法 是 安排 一 重 循环 ， 如 ， 
380 FOR T=1TO 10 
循环 体 
420 NEXT I 
在 循环 外 读 工 资 数 S ， 如 56 .76 元 。 
循环 体 中 安排 以 下 语句 : 
M =INTI(S/VK(I) ) 
省 
S =S -MXxK(DI) 
省 
AUT) =A(I) +M 
二 
第 一 次 : [=1，K(1) =10,M=5,S =56.76 一 5X10= 
6.76。 
A(l)=All)+TM=0+5=5， 表 明 10 元 钱 
的 5 张 。 
第 二 次 : [=2,K 人 (2) =5，M=1,S=6.76 一 1X5= 
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第 四 次 : 


第 五 次 :. 


第 六 次 : 


1.76。 
A(2)=A(2)+M=0+1=1 即 5 元 钱 的 
1 张 。 
I=3,K(3)=2,M=0, SS=1.76 一 0Xx 2== 
15765. 

A(3) =A(3)+M=0+0=0， 即 没有 2 
元 钱 。 
I=4,K(4)=1,M=l,S=1.76 一 1x1= 
0.76。 
A(4)=A(4)+M=0+1=1, 即 1 元 的 1 
张 。 

虐 =5,K(5)=0.5，M=1, 9S9=0.76 一 0.5= 
0.26。 
A(5)=A(5)+M=0+1=1, 即 5 角 的 1 
张 。 

I =6,K(6)=0.2，M=1，S=0.26 一 1 X 
0.2=0.06。 
A(6)=A(6)+M=0+1=1， 即 2 角 的 
一 张 。 


以 下 过 程 同上 分 析 ， 直 到 将 工资 数 分 成 最 小 票面 数 1 分 


硬币 为 止 ， 


I 循环 结束 ， 再 重新 处 理 第 2 个 人 的 工资 情况 。 


十 分 明显 ， 各 种 票面 应 首先 读 入 存 贮 ， 请 见 程序 H 63 中 
310 一 340 句 循环 。 

其 它 几 个 问题 的 处 理 比较 简单 ， 例 如 读 工资 数 ， 累 加 ， 
做 必要 的 精度 处 理 ， 打 印 工资 总 额 ， 以 及 打印 各 种 票面 的 张 
数 等 。 我 们 在 程序 中 都 附加 了 中 文 说 明 ， 很 容易 阅读 和 理 
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下 面 给 出 5 个 人 的 运行 结果 : 


]RUN 
5 
0-298.% 
人:21 


| 

91:1 
2 
1 人 


1T0 人 
I): RE 读 入 各 种 票面 
71957271 52 .的 0201 


348 MENT I 
3 [ 限 J= 1T0N 

368 RE 了 D :REN 工资 数 
人 全。 拘 
378 0 = 0 + $: REN 男 加 工 痪 数 


375 REM 389-42 将 工资 数 分 成 各 种 票面 
38 F 限 I= 1T0 人 
39 时 = 机 下 


499 $ = $ - 什 本 K(I): REN 工资 余 孝 
6 入 IJ) = 成 了 + 中 了 天 交 
420 全 灯 了 

438 NENT 

448 PRINT 人 0- 0. 的 1 # 
458 F 有 II=1 701 

468 限 JNT RCID 和 7: 

476 PRINT 入 T) 

488 EN 

498 RETURNN 

588 只 从 90.760,43.19 33.91 

9510 到 Th 全 .5573.0 150,213.8 
526 只 T 67.98， 1969,32.45，123.78 


5， 工资 程 序 
某 单位 要 求 用 中 华 学 习 机 计算 并 打印 出 ; 
。 职工 月 工资 表 
。 各 工资 项 合计 
同时 要 求 各 主要 程序 段 应 有 简要 的 中 文 说 明 ， 报 表 头 及 
姓名 也 用 汉语 填写 。 
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分 析 : 
) 首先 确定 工资 表格 式 及 项 目 
为 简单 计 以 5 个 职工 为 例 ， 每 个 职工 共有 编号 、 姓 名 、 
基本 工资 、 工 龄 补贴 、 物 价 补贴 、 洗 理 费 ,应 发 工资 会 费 、 
房租 、 储 著 、 其 它 及 实 发 工资 等 12 项 。 形 式 如 下 ， 
名 号 姓 名 基 资 齿 贴 物 补 尝 理应 发 全 要 房 粗 傅 车 其 它 实 发 
1861 属 光 来 13 1 8.25 4 人 7 1 .65 2.75 5.78 2.65 131.59 
1882 郑 生 165 125 8.25 4 129.% 55 575 8.78 1.35 113.49 
693 申 剑 131 195 8.25 4.7 162.92 2.32 8.65 9.78 4. 和 5 137.82 
1994 泰 松 165 125 8.25 4.17 120.9% 3.32 4.65 2.78 4.45 145. 的 
1965 马 Y 文 22 165 8.25 4.7 144.9% 1.12 2.25 2.28 4.25 135.0 
台 计 56 了 4 26865711 7.% 24.65 29.4 16.75 632.94 


(2) 其 次 确定 变量 安排 

姓名 用 字符 串 变量 A$ (I) 存 贮 ， 工 = 1 为 第 一 个 职工 姓 
名 ，[ = 2 为 第 二 个 职工 姓名 ， 其 余 依次 类 推 。 程 序 开头 应 确 
定 A$(I) 中 的 工 值 ， 如 本 单位 有 200 名 职工 ， 则 应 有 DIM 
A 甩 (200) 语句 。 

对 于 每 一 个 职工 的 各 工资 项 目 ， 因 为 都 是 数值 型 的 ， 不 
需要 安排 字符 型 变量 , 而 采用 数值 型 的 变量 , 用 数组 A([，J ) 
比较 方便 。A ([，J) 表 示 第 工 个 职工 第 J 个 项 目的 存 贮 信息 。 
例如 A(2，2)， 表 示 第 2 个 职工 (本 题 是 张 小 民 ) ,第 2 项 (本 
题 是 工龄 补贴 (2.45 元 ) 的 信息 。 对 于 A(I，J) 数 组 的 说 明 ， 
同样 应 在 程序 开始 出 现 ， 例 如 A (1，2)， 表 示 A(0，0)， 
A(0，1)，A(0，2)，A(1，0)，A(1，1)，A(1，2) 共 6 
个 存 贮 单元 。 数 组 说 明 语 句 DIM A(I,J) 中 的 LI，J 值 , 不 能 
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太 大 ， 也 不 能 太 小 ， 太 大 占用 内 存 多 ， 太 少 不 够 存 贮 ， 本 症 
中 存 贮 单元 略 大 于 各 工资 项 。 

DATA 语 句 中 存放 的 是 工资 信息 ， 每 一 条 DATA 语 
句 ， 存 放 一 个 职工 信息 ， 存 放 次 序 应 有 严格 规定 ， 各 项 之 间 
应 用 “，” 分 隔 。 如 一 个 叫 李 民 的 人 , 他 的 工资 情况 放 在 330 句 
的 DATA 语 句 中 ， 按 姓名 〈 李 民 )， 基 资 (113.55)， 龄 
贴 (18.00), 物 补 (8.25) , 洗 理 (4.17) ,会 费 (0.65), 房租 (2.75)， 
储 车 〈5.78), 其 它 〈2.65) 依次 存放 。 


各 工资 项 存 贮 情况 如 下 : 
A (I，1) 一 一 基 资 
A (I，2) 一 一 龄 贴 
A (I，3) 一 一 物 补 
A (I，4) 一 一 洗 理 
A (I，6) 一 一 会 费 
A (I，7) 一 一 房租 
A (I，8) 一 一 储 车 
A ([，9) 一 一 其 它 


对 于 每 个 职工 的 各 项 收入 ， 放 在 A(I, 5) 存 贮 单元 中 ， 
它 实际 上 是 每 个 职工 应 发 工资 总 额 ， 包 括 基 资 ， 龄 贴 , 物 补 ， 
洗 理 四 项 收入 的 累加 ; 而 每 个 职工 的 各 项 支出 ， 放 在 A(1， 
11) 存 贮 单元 中 ， 它 应 是 每 个 职工 扣除 的 所 有 支出 部 份 ， 包 
括 会 费 ， 房 租 ， 储 蓄 和 其 它 四 项 ， 而 每 个 职工 收入 A(I，5) 
减 去 支出 A(1，11) 放 在 A(I，10) 存 贮 单元 中 ， 这 就 是 每 个 
职工 实 发 工资 。 

对 于 每 一 工资 项 的 累加 和 合计 ， 放 在 A(0，I) 中 。 

(3) 各 程序 段 功能 及 简要 说 明 
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第 一 段 : 50 一 160 句 读 入 工资 信息 。 本 程序 段 共 有 三 重 循 
环 组 成 ， 最 外 面 一 个 循环 用 变量 I 控制 ， 这 是 处 理 每 一 个 人 
工资 情况 。 中 间 用 两 个 循环 ，70 句 一 100 句 读 收 入 ， 全 部 收 
入 放 在 A(I，5) 中 ; 110 名 一 140 句 读 支 出 ， 全 部 支出 放 在 
A(I，11) 中 。 在 内 循环 完成 以 后 , 计算 每 个 职工 实 发 工资 数 ， 
并 放 在 A(I，10) 中 。 以 后 再 循环 上 去 依次 读 其 它 各 职工 工 
并 完成 同上 的 处 理工 作 。 本 段 是 整个 程序 的 核心 部 


第 二 段 ， 210 一 260 句 是 打印 定位 ， 用 一 重 循环 完成 ， 其 
中 ， 工 攻 为 循环 控 变 量 ， 又 兼 各 人 序号 安排 。 所 有 打印 位 置 
均 用 TAB (XI) 语 句 。 这 一 段 程 序 执行 后 ， 完 成 全 体 职工 各 
项 工资 信息 的 打印 输出 。 

第 三 段 ， 270 一 300 句 ， 是 合计 汇总 ， 完 成 各 工资 项 的 累 
加 。 采 用 调子 程序 的 方法 处 理 ， 执 行 270 句 时 ， 调 380 句 开始 
的 一 段子 程序 ， 子 程序 放 在 380 一 420 句 的 两 重 循环 中 ， 它 们 
处 理 各 工资 项 累加 ， 完 成 后 通过 430 名 RETURN 语句 返 
回 ， 再 经 过 280 一 300 句 定位 打印 ， 最 后 结束 停机 。 

(4) 几 个 语句 的 安排 说 明 

。30 句 安排 了 一 个 防止 出 错 语 句 ， 这 是 由 于 本 题 为 说 明 
原理 简单 起 见 ， 仅 在 DATA 语 句 中 存放 了 5 个 人 的 信息 ， 
而 50 句 循环 终 值 为 15， 这 样 READVDATA 不 配对 ， 安 排 
了 30 句 出 错 自 动 处 理 以 后 ， 程 序 能 正确 运行 。 实 行使 用 本 程 
序 时 ， 可 分 别 两 种 情况 处 理 ， 一 是 删 去 30 句 ， 将 工 的 终 值 定 
为 和 存 贮 人 数 一 致 的 数值 ， 二 是 继续 保留 30 句 ， 将 50 句 工 的 
终 值 再 放大 一 点 ， 例 如 工 =250, 而 DATA 语 句 中 人 员 数 量 
可 以 任意 增多 〈 不 超过 250) 或 减少 ， 从 而 使 程序 更 加 灵活 和 
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通用 ， 使 程序 增加 了 增加 数据 和 减少 数据 的 功能 。 

“。170 句 是 程序 自动 接 通 打印 机 , 并 设置 了 第 一 种 字 型 的 
打印 格式 ， 当 然 ， 如 实行 打印 要 求 时 ， 应 在 程序 运行 前 接 通 
打印 机 电源 。 改 变 POKE1659，N 中 的 N 值 CN 取 1 一 5 为 
宜 ) 改变 字体 大 小 。310 句 POKE 1659，0 是 断 开 打印 机 指 
令 。 

。 180 句 中 P OK 下 2043，60, 是 设置 每 行 字数 最 多 可 以 
打印 60 个 字符 ， 如 不 安排 这 一 句 ， 计 算 机 按 40 个 字符 处 理 ， 
本 表 打 印 不 能 对 齐 。 

。 本 程序 中 用 了 不 少 REM 语 句 ， 目 的 是 对 程序 加 注 了 
必要 的 中 文 注 释 说 明 ， 这 样 做 有 几 个 好 处 ， 程 序 易 读 性 好 ， 
又 能 看 清 程序 的 执行 过 程 。 同 时 ， 程 序 不 论 放 置 多 少时 间 ， 
再 重新 阅读 也 非常 方便 。 

* 请 注意 本 程序 中 TAB ( ) 语 句 的 用 法 ， 中 华 学 习 机 
在 中 文 状 态 下 ， 每 行 只 处 理 17 个 汉字 ，34 个 字符 ， 若 超过 34 
个 字符 时 用 TAB 函数 会 出 错 , 方法 是 第 一 个 超过 34 的 保持 ， 
如 TAB (35) 是 可 以 的 ， 但 以 后 必须 减 去 34。 例 如 要 在 43 号 
位 置 上 打印 ， 不 能 写 TAB (43)， 而 改写 TAB ( 9 )， 其 中 
43 一 34= 9 。 即 以 34 为 模 。 

程序 清单 〈 见 H64) 和 运行 结果 ; 


]LHST, 152 


? RE Ho4 
19 REN 工资 吉 序 
20 了 入 15)11) 航 (19) 
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25 ONE 限 60T0 150 
28，REN 39-148 读 入 工资 信息 


3 F 限 1I=1T045 
人 用 各 的 (T): REN 读 姓名 

5 F 眼 J=1T014 

69 RE 各 入 DJ): REN 读 收 入 

了 8 成 D5) -= 似 D5) + 信 IJ): REN 应 发 


9 F 中 本 =6T09 

199 RE 入 IJ): REN 读 支 出 

118 人 TD1D) = 从 D1D + 入 DJ): REN 支出 相 吉 
120 NEXT 


】 
138 依 T18y = 从 TD5) - 研 D DREN 收入 袜 支 出 
148 NEXNT TI 
150 POKE 1659,5 
152 POKE 2043,69: REN 设置 字数 


155 PRINT "编号 姓 资 过 
上 人 人 


查 
158 PRINT : REM 169-208 打 印 定位 
189 FRI- 19 


1 PRINT IT+ 1600”“; 介 (TD ” 

188 限 INT 种 (从 入 D 1); 各 2 Th 
懈 20) 六 TD3) 7 沁 T4)T 各 (及 D5) 
185 PRINT T 印 ( 1036 TB 2273TD7) 人 
以 29); 六 了 4; T 瓜 ( 36)3f(T)9); 种 8) 沪 T10) 
198 PRINT 

2 的 NEAT 

20 60 00: RE 全 计 汇 吕 

219 了 RINT 


220 了 RINT 请 3) 1); 名 ( 2435 让 025 从 
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236 了 INT T 角 (10); 86) 从 有 22) 信 旭 7) 从 
BR 29 入 08 TB 36 人 人 9 他 (850 10) 
2 和 POKE 1659)0 

298 EN 

8 NTh 周 光 来 ，113 .86， 18.99,8.25) 4.17,6.65,2.7 
5,9.782.05 

下 六 生 ,185.80，12.50,8.25，4 .17 0.55;5.7 
9 3 

428 Th 申 全 131.09, 19.50,8.25, 革 1 2.328.6 
9 9.78 .35 

38 NT 素 松 ， 195.00: 12.50)8.25,4.17,3,.327 .6 
52.18 4 

二 和 Th 本 立 文 122.08， 19.50,8.25，4.17， 1 122.2 
9 0.2 和 和.259 

5 扣 F 妇 TI=1T0 细 
510 f 腿 J=1 

528 入 8 IT) = 和 
538 EXT 可 

548 NEAT 了 

558 RETURN 


1 
T05 
(9 了 T) + 人 TD) 


6. 图 书 管理 程序 


(1) 程序 简介 
本 程序 利用 字符 串 比较 这 一 特性 ， 在 DATA 语句 中 放 
进 全 部 书 的 编号 、 书 名 、 作 者 姓名 和 出 版 年 月 ， 如 果 想 查 
询 有 没有 某 一 本 书 ， 可 以 从 键盘 输入 此 书 名 字 ， 如 有 此 书 ， 
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b6 .2Z89 S.'91 
28'`S851 5S25b 
2Z8'SI1 Sb 
2Z8'L8L S86 5b 
6b' 8 398 人 
6S 15[ 59 2 


b 62 5686'bZ 
82'`Z 52 
8L.Z 59'5b 
8.'6 59'8 
8.`8 54'9 
8.'S SLC 


96 


S9 


1 1 58 682 
2Z6'bblt 5 5 
2Z6'62!1 4 bp 
Z6'`Z90 xz b 
26'6c1 LIb 
Zb' gbl Lpb 


Sc'1b 
SZ 8 
SZ78 
SZ78 
SC2 8 
S2 8 


8 
s.et 
9 2Z1 
SS 6 
9 2 

8 


9LS5 鞭 尽 

ZZ! 闪 焉 行 S881 
S8! 站 泛 b88l 
!8! 降 申 888! 
Se 和 时 z88! 
8I! 兴 涂 贡 1881 


部 和 了 许 旦 肌 下 戎 斌 部 凋 丽 下 了 巷 阔 哆 玉 刘 吉 要 兮 释 各 图 
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则 会 打印 出 此 书 的 书号 、 书 名 、 作 者 和 出 版 时 间 。 如 找 不 到 
此 书 ， 则 打印 “对 不 起 ! 找 不 到 ”的 信息 。 如 果 还 想 继续 查 
找 其 它 书 ， 程 序 中 安排 了 控制 语句 ， 只 要 按 Y 键 愉 便 可 重新 
查找 ; 如 果 不 想 再 找 ， 按 N 键 停止。 操作 简 单 , 使 用 方便 ， 
适用 于 图 书 资料 管理 及 情报 检索 中 使 用 。 

(2) 功能 特点 

“ 本 程序 有 两 种 查询 方式 ， 一 是 根据 书 名 查找 ;， 二 是 根 
据 作者 姓名 和 书 名 两 个 条 件 查找 。 对 于 后 者 ， 由 于 书 名 可 能 
相同 ， 但 作者 一 般 不 会 相同 ， 这 样 ， 就 可 以 正确 查询 同时 满 
足 书 名 和 作者 两 个 条 件 的 书 。 而 对 前 者 ， 则 可 以 查找 相同 书 
名 的 书 。 

* 本 程序 既 可 以 查找 英文 书 ， 也 可 以 查找 中 文书 ， 而 不 
需要 为 了 区 别 英文 和 中 文 另 编程 序 ， 对 少 型 图 书馆 更 为 实用 
灵 便 。 

(3) 变量 安排 

" N 一 一 书 的 编号 

”M 一 一 图 书馆 中 图 书 总 数 

。B $ 一 一 书 名 

'C $ 一 一 作者 姓名 

" X 一 一 出 版 年 月 

" Aj$ 一 一 查询 的 书 名 《〈 仅 按 书 名 查找 ) 

"D $ 一 一 查询 的 作者 姓名 

(4) 操作 说 明 
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1 RUN yy 

2 8 yy/ 

3 FORTRAN- 
77 妈 

4 至 - 动 

5 TIME y/ 

6 BASICX 


显 示 
ARE THERE 


-BOOKS IN 


YOUR LIBRARY3? 
TYPE BOOK 
NAME? 

1129 FORTRAN-77 
SMITH 1983.6 


TO CONTINUE 


TYPEY:， ELES N 


作者 : D 有 $ 
书 名 ， 和 A 吊 


> 


2741 BAS IC 
TIME 1976. 12 


(5) 几 个 运行 实例 


例 1 : 

]RUN 

HOU NANY BOOKS 各 ETHERE IN YOUR LIBR 雏 Y8 
TYPE B0 环 NANME? FORTRAN-P7 

1120 FORTRAN-FF SNMITH 19%83.0 
TO CONTIUNE TYPE YELES NY 

作者 :项 书 名 :各 TIIE 

29BNSIC 

2141 B 队 SI TIIE 1976.12 
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注释 
图 书馆 里 有 多 少 
书 ? 


输入 8, 并 指示 打 
入 书 名 
输入 书 名 ， 显 示 
出 查找 到 的 该 书 
信息 
提示 是 否 查找 ， 
是 按 Y， 和 否则 按 
N 
输入 立 ， 将 提示 
打 入 作者 和 书 名 


输入 书 名 ， 打 印 
该 书信 息 
结束 


HOU MINY BODKS 6RE THERE IN YOUR LIBRRRY? 8 
TYPE BODK NME? 于 林 

对 不 起 [ 技 不 到 

TYPE WELES NY 

5 学 

3424 “二 了 对 机 和 拒 素 国 江 


书 名 输入 错误 ， 找 不 到 。 
例 3: 


HOU NMRNY BODKS ARE THERE IN YOIR LIBRRRY28 
TYPE BOIK NE? hpPPLE-2 
起 ! 找 不 到 


对 不 
TO CONTIUNE TYPE YELES NAN 


中 文书 名 必需 在 中 文 状态 下 输入 。 
(6) 程序 清单 


]U9%P 110 


5 RENH Hb5 
1 RENM *kFIND BOUK NME NUMRER AND WRITER PRDGR 
和 


15 RE 要 书 名 ， 人 本 


， 


REH T 航 ( ) 编 号 ;和 角 ( 1) " 书 名 TAB( 2 


)7 作者 ”; 人 37);" 册 上 年 有 


的 
2 


8 F 限 太 = 和 和 全 限 JNT -人 EXT PINT 


REN “图 书 亿 中 其 有 多 少 本 书 员 本 
INPUT “HOU RNNY BOOKS 和 RE THERE IN YOUR [ 职 


秀 Y” 放 


入 


REH “输入 查找 的 书 名 前 ” 

INPUT “TYPE NE ;的 

FI = 1 和 

REN 编号 疏 祖 于 作者 :0$ 出 版 年 月 
RE 和 D 人 到) 

下 下 = 的 THEN 19 


NEXT 
PRINT “对 不 起 ! 技 不 到 


REN YOU ON NOT FIND THIS BOLK 


60T0 129 
7 队 休 ( 人 7 3 ] 秀 ( 13);" 书 名 ”ThB 
)" 作 者"; TB( 37); "出 版 年 月 

了 避 册 TB T 角 (3758 TB 25);04; 


{ 37) 认 
REN 是 否 继续 找 ,是 按 Y 键 , 合 按 NM 名 


INPUT “TO CONTIUNE TYPE Y;ELES N; 吕 
IF 跑 ( >》Y THEN 160 


228 RE 了 由 了 ,4 
2 下 的 = 孙 后 胞 = (THEN 29 
260 NEXT 1 

21 了 INT “------ROT FOUND----- 


28 EN 

298 PRINT 戎 (1 TRB( 13)3 柬 ;TAB 25)04; 
棚 ( 37)3 

388 只 Th 2741BSICTIKE， 1970.12 

316 只 [人 -3424, 中 华 学 习 机 编程 技巧 , 朱 国 江 , 1988.2 


320 DTh 1129，FORTRAN-77,SHITH, 1983.6 
338 Th 5672 ,扩充 BNSIC 党 铭 ,1987.3 
348 咯 f 几 8987,EXPERT SYSTEl 二 元 ,1987.8 
356 史册 4547,LISp 茧 言 ， 沪 1979.8 

368 NT 5566, 大 工 智能 , 宋 蜡 ,1987. 

376 了 哈 从 的 12;fpPLE, 炒 团 1979.3 


7 人事 档案 管理 程序 


本 程序 以 8 个 人 员 ， 每 人 7 个 信息 为 例 ， 介 绍 了 一 种 纺 
制 人 事 档 案 的 原理 和 方法 ， 为 简单 计 ， 档 案 中 人 员 姓 名 用 三 
个 英语 字母 代替 ， 人 性 别 用 M 和 人 双 代 替 。 

(1) 本 程序 可 以 完成 下 述 功 能 

“。 列 印 全 部 人 员 档 案 ; 

"“ 按 人 员 序号 查找 该 员 档案 ; 

“查找 小 于 某 个 年 龄 的 人 员 名 单 ; 

。 查找 符合 多 少年 龄 以 下 ， 工 龄 多 少年 以 上 ， 某 一 文化 
程度 三 个 条 件 的 人 员 情 况 ; 
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“查找 某 一 文化 程度 占 总 人 数 的 比例 ; 
。 查找 某 一 性 别 ， 某 种 年 龄 以 下 ， 某 一 文化 程度 人 员 资 


(2) 程序 分 段 说 明 

。 1 句 文件 名 :， 人事 档案 管理 程序 。 

。 5 一 12 句 : 读 存 信息 ， 将 全 部 人 员 档 案 资料 存 入 数组 
A 忆 (TI,，j) 中 。 

。24 句 : 列 菜单 ,: 共 7 项 ， 数 字 代 表 输 入 方式 ， 文 字 是 
功能 说 明 ， 采 用 调子 程序 的 方法 ， 子 程序 安排 在 800 一 900 句 
中 。 

。25 一 35 句 : 总 控 。 

。40 一 90 句 : 为 调用 6 个 子 程序 的 指令 语句 ， 全 部 采用 
GOS UB/VRETURN 语 句 ， 而 用 GOTO 语 句 返回 总 控 。 

。 99 一 125 句 : 为 第 一 个 子 程序 , 完成 列 印 全 部 人 员 档 案 

。139 一 160 句 : 为 第 二 个 子 程序 ， 按 序号 查找 人 员 档 

。179 一 200 句 :为 第 三 个 子 程序 ， 找 小 于 某 年 龄 人 员 名 
单 。 

。209 一 240 句 : 为 第 四 个 子 程序 ， 找 符合 年 龄 ， 工 龄 及 
文化 程度 三 个 条 件 的 人 员 情 况 。 

。250 一 300 句 ， 数 据 区 ， RESTORE 为 恢复 数据 区 指 
针 。 

。309 一 370 句 : 为 第 五 个 季 程 序 ， 找 满足 某 一 文化 程度 
的 人 数 及 占 总 人 数 的 百分比 。 

。409 一 460 句 : 为 第 六 个 子 程序 ， 查 同时 符合 性 别 ， 年 
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龄 及 文化 程度 三 个 条 件 的 人 员 情 况 。 

(3) 程序 变量 安排 

A$ (TI,，J ) :存放 档案 信息 ， 工 =1,2,…，7, 8 代表 1T 
人 个人， 本 =1,2,…，7 代 表 丁 项 信息 

共 : 总 控 提 示 符 。 要 求 从 键盘 输入 1,2,3,4,5,6,7 中 的 任 
何 一 个 字 码 。 

ELL: 年 龄 

GL:， 工龄 

WH: 文化 程度 ， 用 1,2,3 区 别 

个 $: 性 别 ，M 为 男 同 志 ，W 为 女 同志 

S ， 某 种 文化 程度 人 数 

R : 某 种 文化 程度 人 数 占 总 数 百分比 

I，J: 循环 变量 ，I 兼 作 人 员 代 号 

数据 区 中 存 贮 情况 按 以 下 顺序 : 人 员 代 号 、 姓 名 、 性 别 、 
年 龄 、 工 龄 、 文 化 程序 、 行 政 级 别 。 

(4) 主要 程序 段 分 析 

GD 列 印 全 部 人 员 档 案 

程序 运行 后 ,屏幕 上 列 出 一 个 菜单 ， 然 后 出 现 一 个 并 号 ， 
此 时 输入 1w, 即 可 列 印 全 部 人 员 档案 。 其 执行 过 程 如 下 ， 
X=1， 经 30 句 转向 40 句 ， 调 99 句 开始 的 一 段子 程序 , 用 两 重 
循环 ， 打 印 存 贮 在 A$〈1， 丁 ) 中 的 档案 信息 ， 打 印 完毕 后 
经 125 名 RETURN 返回 到 总 控 25 句 。 

@ 按 序号 查找 人 员 档 案 

键盘 输入 2 ww， 执行 50 句 ， 调 139 句 开 始 的 子 程序 ， 然 
后 输入 一 个 序号 (1,2,……，*7，8 中 的 一 个 ), 用 一 重 循环 145 一 
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150 句 , 即 可 查找 到 某 序号 的 人 员 情 况 ， 所 以 安排 -~ 重 循环 ， 
是 因为 [一 定 , 查找 人 员 就 定 。 不 需要 再 用 循环 查找 其 它 人 ， 
而 只 要 安排 一 个 本 循环 ， 即 可 打印 第 I 个 人 的 本 个 信息 。 

多 查 小 于 等 于 某 一 年 龄 的 人 员 情 况 

键盘 输入 3 w ,执行 60 句 , 调 179 句 开始 的 子 程序 然后 
输入 一 个 年 龄 ,例如 40, 经 180 句 时 ， 用 了 一 个 STR $(X) 
函数 ， 这 是 一 个 将 数值 X 赋 给 字符 串 变 量 的 函数 ， 经 此 函数 
转换 后 打印 出 来 的 是 5 4”% “0 ' 珊 个 字符 。 此 外 ， 在 180 句 
中 还 用 了 一 个 赋值 语句 本 =4, 它 是 指向 每 个 人 员 档 案 信息 的 
第 四 项 年 龄 ， 这 种 安排 是 一 个 技巧 ， 它 和 190 一 200 句 的 另 一 
个 循环 配合 使 用 ,可 以 减少 一 重 工 的 循环 。190 句 的 条 件 语 句 
中 用 了 一 个 VAL (A 和 $ (IT, J) ) 函 数 , 它 的 功能 是 把 字符 串 变 
成 数值 ， 只 要 满足 小 于 或 等 于 年 龄 (LL ) 的 值 即 打 印 ， 其 
中 A$(I，2) 中 的 2 为 每 一 人 的 第 二 项 信息 即 姓名 ， 反 之 再 
继续 循环 查找 。 查 找 完毕 返回 总 控 。 

全 关于 其 它 几 个 程序 段 

读者 可 以 自行 分 析 。 只 是 要 注意 一 点 ， 对 于 同时 查找 满 
足 几 个 条 件 的 人 员 情 况 ， 我 们 用 了 逻辑 表达 式 ， 例 如 ， IF 
VAL(A$ (I，4) <=LL AND VAL (A 和 $(IL,5)) 
>GL AND VAL (A$(I，6)=WH THEN GOS UB 
145, 这 句 话 的 意思 是 如 果 第 工 个 人 的 年 龄 (J = 4, 第 四 项 信息 
为 年 龄 ) 小 于 等 于 LEL( 例 如 40) 同时 工龄 (J=5, 第 五 项 为 工龄 ) 
>GL (例如 10) 并 且 文 化 程度 是 WH( 如 1 代表 大 学 毕业 ) 
的 话 ， 就 转向 145 句 去 打印 。 

本 程序 只 是 一 种 模式 ， 它 可 以 再 行 扩充 和 修改 ， 可 以 完 
成 更 多 人 员 存 贮 以 及 更 多 功能 的 检索 。 程 序 清 单 〈 见 日 66) 
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及 运行 实例 : 
jLSTp9% 


8 REN H66 
1 REWM 人 事 档 案 管理 程序 

2 DT 的 (27) 

4 RE 5_12: 读 存 信息 

5 F 腿 I=1T08:FRJ=1T07 
1 和 印 MT 


(了 2 3945:67) 
20 国人 中 吕 你 仙 由 工 苍 (6L) 文化 


24 60SJ 汕 - 

2 INPUT 和 这 

3 ONX 60T0 49,506070,809094 
2 0002  . 

个 的 9 邮 99: 60T0 29 
58 603 凤 139: 60T0 25 
6 603 见 179: 60T0 25 
从 603UB 2 的 : 60T0 25 
他 6003 用 309: 60T0 25 
98 60SUR 499: 60T0 25 
御 PRINT “停止 " 


纯 
9 限 INT“ 列 印 全 部 人 员 档 案 ” 
1 的 PRINT : FRI=1T08 
65 [有 J= 1T07 
1 PRINT 的 (DJ 
129 NEXT JPRINT : PRINT : NEXT 
125 RETURN 


|] 多 避 INT 按 序 号 查找 人 员 档 案 ” 

148 PRINT :INPUT “序号 "; 

1 FIRJ=1T07 

159 PINT 损 (L JJ) :NENT 了 

168 PRINT :RETURN 

479 PRINT “查找 (58 岁 的 人 员 和 名单" 

1 呈 PRINT :INPUT "LELLJ = 全 耻 JNT "LL=”; 
STR 《LL): PRINT 

198 [中 IT=1T8 IF (本 (IJ) (=L1 
HEN PRIM 7 郁 ( 6 各 (P2) 

298 NEXT TI RETURN 

299 PRINT“ 找 和 上 《50, 工 齿 >19 年 , 革 一 文化 炽 度 的 人 


2 RUT LiLL RN (LUD: INPUT " 
9;6L: 限 JNT STR (6L): INPUT HH: PRINT 

STR 《 册 ) 

220 FRI-1T08 

238 F 赂 (的 DC = 人 W (的 (D5) 
) > 6L RND WL (名 (6)) = 册 THEN 60SWB 15 

248 NEXT TI: PRINT :RETURN 

258 Th 了 名 如 38, 15,2,21 

255 哈 T 2,DEF, 也 44,29, 18 

269 DRNTR 3,6HD 肌 63,38;3， 志 

265 隔 作 介 基 好 4 16, 9 

278 了 人 5 人 NO, 仙 29，19,2;22 

275 JR 6POR, 耻 38, 15,1)29 

288 Th 7,STD, 人 49,28,2, 16 

285 只 人 9, 蜀 % 如 55,39,3, 他 

3098 RESTORE 

369 PRINT “其 一 文化 程度 占 总 大 孝 比 例 " 

38 INPUT YH2”; 册 : PRINT =”; STR 《 骨 ) 


353=10 

320 [了 TI=1T08 

338 下 凡人 (TD6)= 则 THN 3 

335 60T0 3590 

33=S+1 

390 MENT 

300 PRINT = ”7 86 0" 
310 RETURN 


PRINT “ 查 基 一 性 别 ,年 郁 q9, 某 一 文化 程度 人 员 


人 0 INPUT “和 ”各 PRINT “T 和 = :INPUT “LL9” 

计 LL: PRINT STR 《人 LEL)》: INPUT "HH: PRINT 5T 

际 《 册 ) 

428 PRINT 

438 FI= 1T 

435 F 中 了 J= 1 
= 名 人 


438 60T0 445 
4 竹下 娩 L (的 (DC = LDL(R(D6) 
) = 册 THEN PRINT 的 (DJ 

445 MENT 了 

458 EXT 1 

455 了 IN 

469 RETURN 

888 PRINT “1: 列 印 全 部 人 员 档 案 ” 

818 PRINT 证。 

828 PRINT “3: 查 找 (56 岁 的 人 员 


PRINT > 划一 文化 程度 的 
848 PRINT 5: 革 一 文化 程度 占 总 人 数 比 例 " 
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850 PRINT "6: 查 某 一 性 别 ,年 齿 (48, 革 一 文化 程度 人 
员 人 情况” 


册 
866 PRINT 了: 停止" 
9 RETURN 


AD 


一 - 麻 吕 ys 二 : 寺 -富生 


(60 风 的 人 员 名 音 
(68, 工 攻 >15 年 ,划一 文化 程度 的 人 
程度 占 总 人 数 比 


全 
性 别 , 年 齿 (46 革 一 文化 程度 人 员 情 况 


芒 -~J DC 下 -请 信 2 一 ~ 一- 


下 印 全 部 人 员 村 

1 和解 C 由 3 22 
2 DEFHg 和 201 所 
3 oHIN638 3 二 
引水 [ 贡生 1 约 
5 NO 28 1 2 22 
6 PR 让 38 5 120 
了 3T0H 和 2 妈 2 所 
8 V5 30317 


林 :2 

按 序 号 查找 人 员 档案 
序号 6 

6 pP 外 由 38 512 


##:3 
查找 <58 岁 的 人 员 名 单 


LL?4 
[LL= 人 4 


各 
IN 
p 人 

##: 

拔 年 龄 456, 工龄?16 年 ,划一 文化 程度 的 人 

LL945 

条 

6t?1 

地 

员 ?2 


2 

1 种 38 35221 

#:5 

革 一 文化 程度 占 总 人 数 比价 
册 ?1 


届 -1 

R-37.5 

##: 

吉 芝 于 叶 年 久 芝 文人 程度 员 和 
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| 二 
1L?38 
3 
员 ?1 
] 


0 pP 角 3 人 1 2 
打 : 
停止 


1. 汉字 原理 程序 


在 我 国 大 量 的 信息 是 中 文 汉字 ， 因 此 中 文 信息 处 理 是 我 
国 计 算 机 系统 应 用 和 研究 的 一 个 重要 领域 ， 是 使 计算 机 在 我 
国 普 及 推广 的 前 提 。 

计算 机 为 什么 能 写 汉 字 ， 它 的 原理 和 方法 是 什么 ? 这 里 
介绍 一 种 简单 的 实现 点 阵 汉 字 的 原理 和 方法 ， 只 是 提供 一 种 
思路 ， 从 中 可 以 了 解 到 计算 机 处 理 汉 字 信息 的 概略 过 程 。 

计算 机 处 理 汉字 的 过 程 ， 可 以 用 程序 来 实现 ， 整 个 程序 
可 分 为 建立 字库 、 识 别 查找 、 进 制 转换 、 汉 字 再 现 四 个 部 
份 。 

(1) 建立 字库 

字库 , 顾名思义 ， 不 是 一 个 汉字 ， 而 是 由 许多 汉字 组 成 。 
存放 汉字 的 地 方 就 是 “ 库 罗 每 一 个 汉字 又 不 是 汉字 本 身 ， 而 
是 用 一 定 的 数字 代码 来 代替 的 。 我 们 要 建立 的 汉字 库 ， 在 程 
序 中 是 放 在 数据 区 中 〈 如 DATA 语 句 中 )， 存 放 的 是 相应 汉 
字 的 数字 代码 。 

因此 ,首要 的 问题 是 如 何 将 汉字 转换 成 相应 的 汉字 代码 。 
常用 的 方法 是 所 谓 点 阵 法 ， 又 称 点 阵 模式 ， 计 算 机 系统 中 的 
汉字 也 常用 点 阵 字模 。 

例如 ， 本 程序 采用 12 x 9 点 阵 模 式 ， 即 一 个 汉字 由 108 个 
“B ”字符 或 空格 组 成 。 方 法 是 先 画 好 一 个 方 格 图 ，12 行 9 列 ， 
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然后 在 图 中 写字 ， 下 面 是 汉字 “ 计 ” 的 实例 ， 见 图 6.1。 
写字 的 地 方 用 1 ' 姜 示 ， 不 写字 的 地 方 用 ' 0 "代替 ， 就 
可 以 将 任何 一 个 汉字 变 成 相应 的 代码 。 
如 对 应 于 汉字 “ 计 ” 的 二 进 制 代码 〈 见 表 6.1) 为 。 


总 oo ~ om 


ee ou 
f 人 一 





图 6.1 

由 此 可 知 ， 采 用 12x 9 的 点 阵 模式 ， 处 理 一 个 汉字 成 二 
进 制 代码 ， 需 要 108 个 4 0 ?和 % 1 ”。 显 然 ， 把 这 么 多 的 代码 
存放 在 DATA 语 句 中 ， 是 很 不 方便 的 ， 稍 有 误差 就 发 生 错 
误 。 

容易 想到 ， 将 二 进 制 代码 转换 成 其 它 进 制 代 码 ， 书写 就 
比较 简短 ， 例 如 转换 成 八进制 。 八 进 制 共有 0, 1,2,3,4,5,6， 
7 八 个 字 码 (又 称 数 字 代码 ， 数 码 ), 它 的 特点 是 逢 八 进 一 。 

将 二 进 制 转换 成 八进制 ， 方 法 很 简单 ， 每 3 位 二 进 制 代 
码 用 一 位 八进制 代码 表示 ,例如 :(010 110 111)2=(2 6 7)8， 
它们 是 按 8421 码 处 理 的 。 如 二 进 制 码 101 转 换 成 八进制 数 ， 
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上 
































二 | 一 | 上 | | | mr 一 


乙 |||| 2 有 |1S=|r||S|| 忆 | oo 


二 | 一 
二 





二 | 二 | 一 | 一 | 一 | 一 | 产 | 一 | 己 | 一 | 呈 | co 








就 是 把 每 一 位 数码 乘 上 该 位 的 “ 权 ” 就 等 于 该 位 数 ， 然 后 将 
各 位 数 求 和 ， 就 是 八进制 数 。 即 ; 
1x4+0Xx2+1xl=4+0+1=5 
用 上 述 方法 ， 将 汉字 写成 八进制 代码 就 是 : 
204 104，004，704，137，104，104，104，104,104， 


144,104 

经 二 到 八进制 转换 后 ， 汉 字 “ 计 ”的 代码 只 有 12 组 ， 每 
组 3 个 数码 共 36 个 数字 符号 ， 不 像 二 进 制 码 处 理 共有 108 个 
数码 ， 从 而 使 存 贮 在 数据 区 中 的 信息 大 大 减少 。 

二 进 制 到 八进制 的 转换 ， 它 可 以 非常 直观 而 又 迅速 地 从 
方 格 图 中 一 次 读 出 来 ， 而 不 需要 经 过 编程 实现 。 

综 上 所 述 ， 将 汉字 一 写 进 方 格 一 自然 转换 成 二 进 制 码 - 
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再 读 出 来 -就 是 八进制 码 ~ 顺序 写 进 DATA 区 (每 3 位 一 
组 ， 中 间 用 ， 号 隔 开 ) 一 一 就 建立 了 一 个 汉字 。 将 许多 汉字 
经 同样 方法 处 理 ， 一 一 写 进 数据 区 ， 就 完成 了 汉字 建 库 工 
作 。 

(2) 识别 查找 

对 应 于 每 个 汉字 共有 12 组 数字 代码 ， 怎 样 识别 它们 而 不 
致 弄 错 呢 ? 这 就 要 给 每 一 个 汉字 编 个 (号 凡 也 就 是 说 ， 为 了 找 
到 某 个 汉字 ， 首 先 必须 先 给 这 个 汉字 起 个 名 字 ,“ 号 ”又 称 关 
键 字 或 叫 特征 字 。 

例如 “ 计 ” 这 个 汉字 ， 用 一 个 汉语 拼音 (或 中 文字 ， 或 
英语 字母 ) 的 代码 来 代替 ,如 J[ 1， 这 就 是 关键 字 ， 将 它 放 在 
数据 区 中 对 应 4 计 ? 字 的 12 组 代码 前 面 ， 以 作 识别 “ 计 ” 字 的 
标志 。 

同样 ， 对 于 其 它 每 个 汉字 ， 都 冠 以 一 个 拼音 代码 和 12 组 
数字 代码 共 13 组 数据 ， 分 别 置 于 DATA 语 句 中 ， 以 备 读 入 
后 “调用 思 

调用 的 方法 很 简单 ， 输 入 字 的 代码 ， 把 它 放 在 字符 捉 变 
量 S $ 中 ， 汉 字 特 征 字 代码 用 读 语 句 READ H$ 读 取 ， 只 
要 日 $ 和 S $ 相符 合 ， 就 能 识别 查找 到 。 

总 之 ， 用 输入 的 代码 与 汉字 代码 是 否 相符 来 识别 。 

但 是 ,仅仅 识别 了 要 查找 的 汉字 特征 码 (如 计 字 为 JID) 还 
不 够 ， 因 为 它 后 面 还 有 12 组 数字 代码 〈 八 进 制 ) 并 未 处 理 ， 
要 将 这 些 数 字 代码 变 成 汉字 ， 必须 经 过 “翻译 ”过 程 ， 才 能 
实现 汉字 再 现 。 

(3) 八 一 十 进 制 转换 

前 面 我 们 已 经 分 析 ， 为 建立 汉字 库 时 的 方便 ， 在 读 写 出 
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对 应 于 汉字 “黑白 ”点 各 数据 时 ， 采 用 了 八进制 数 ， 因 为 它 
比 二 进 制 数 书写 起 来 简短 明了 又 不 容易 出 错 。 

但 是 计算 机 B AS IC 语言 解释 系统 中 ， 却 是 按 十 进 制 处 
理 的 ， 也 就 是 说 ，DAT A 语 句 中 存放 的 八进制 代码 , 计算 机 
误 作 十 进 制 数 处 理 ， 从 而 要 发 生 差错 ， 因 此 ， 还 必须 把 八 进 
制 数 的 数据 一 个 一 个 地 转换 成 十 进 制 数 。 

八 一 十 进 制 数 的 转换 公式 为 : 


1 
N 10 一 》 ,QiX 8i-1 
i=m 


一 anX8n"-1 十 anl1X8" 2 十 an 2X8n3 十 .ee 


十 alX80 
其 中 an，an-l ，al 分 别 为 八进制 数 的 各 位 数值 ， 
而 8 于 1， 8 0 为 相应 n 位 ， 0 一 1 位 ， 人 的 《 权 六 也 
就 是 八进制 数 每 一 位 数码 x 该 位 的 权 等 于 该 位 的 数 ， 各 位 数 
累加 就 是 对 应 于 八进制 数 的 十 进 制 数 。 如 : 
(204)s= 〈?) 10 
2X82 上 +0Xx8l 二 4X80 
=2x64+0+4xl 
=(132 )-10 
(204)8=(132)i10 
八进制 数 转换 成 十 进 制 数 ， 可 以 用 程序 来 实现 。 
为 了 理解 上 述 转 换 过 程 ， 我 们 编制 一 个 B AS IC 程序 
H67， 看 它 是 如 何 一 位 一 位 处 理 的 : 
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=0pND 入 JJ = 了 THEN 239 
210 了 恨 INT “只 六 ERROR” 

220 的 [0 .190 

238 区 洒 了 


258 [中 J=1T03 
200X=X+8^ 03 有 亲信 下 
2f0 NEXT 

288 NI) = 

2 扣 了 INT 以 T) 

298 上 果 了 

3 给 俐 204 

310 EN 


这 个 程序 比较 简单 ， 经 180 一 230 句 处 理 后 ，A(1)=2， 
A(2)=0,A(3)=4, 经 250 一 270 句 处 理 后 ，X =132, 最 后 
放 在 D(1 ) 中 。 这 样 就 完成 了 八进制 数 到 十 进 制 数 的 转换 ， 
即 (204)8 = (132) ios 如 工 的 终 值 改 为 12, 则 上 述 程序 即 可 
处 理 12 组 八进制 代码 36 位 数字 的 转换 成 十 进 制 的 工作 。 

(4) 输出 打印 汉字 

八 一 十 进 制 数 的 转换 已 经 由 计算 机 完成 ， 现 在 ， 是 否 可 
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以 输出 打印 使 汉字 再 现 呢 ? 我 们 说 还 不 行 ， 必 须 设法 控制 打 
印 机 ， 让 它 听 我 们 指挥 ， 在 有 字迹 的 地 方 ， 打 印 一 个 “了 
字符 ， 没 有 写字 的 部 份 打印 一 个 空格 ， 这 样 才能 反映 最 初 写 
字 时 对 应 的 二 进 制 码 。 即 二 进 制 的 * 0”， 是 没有 字迹 代表 空 
格 ， 二 进 制 的 “ 1 风 是 写字 迹 的 要 寿 印 一 个 “B?。 

计算 机 打印 机 输出 时 是 按 自 左 至 右 ， 由 上 而 下 逐 行 打印 
方式 进行 的 ， 也 就 是 说 打印 针头 是 自 左 至 右 ， 自 上 而 下 和 逐 行 
滑动 打印 的 。 什 么 时 候 打 印 ， 什 么 时 息 不 打印 ， 要 由 程序 控 
制 。 为 了 说 明 这 个 过 程 ， 我 们 不 妨 将 汉字 “ 计 ” 的 第 一 行 各 
列 情况 重新 列表 〈 见 表 6. 2)。 








程序 的 编制 要 按 下 述 规则 处 理 : 

由 对 应 的 十 进 制 数 是 否 大 于 或 等 于 这 一 列 所 对 应 的 权 
(如 第 9 列 为 25， 第 8 列 为 27， 依 次 类 推 ) 而 决定 打印 4B "或 
者 ' 一 ”( 跳 过 这 一 列 )。 每 打印 一 次 “了 2 十进制 数 应 减 去 这 
一 列 对 应 的 权 ， 如 此 一 列 列 处 理 〈 自 左 至 右 ， 从 第 9 列 直 到 
这 一 行 的 最 后 一 列 ), 而 当 十 进 制 数 为 零 时 ， 表 明 这 一 行 打 印 
结束 ， 继 续 打 印 下 一 行 ， 直 到 12 行 全 部 打印 完 为 止 。 

如 十 进 制 数 132， 从 第 9 列 开始 判断 ， 因 132< 28〈 第 9 
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列 的 权 ，28 =256)， 则 不 打印 《〈 计 字 第 一 行 第 9 列 二 进 制 码 
为 0, 打 印 针头 右 移 一 列 )。 

人 本 癌 量 放 的 汪 和 的 的 2 人 此 时 
132 之 27， 则 应 打印 <“B ”( 计 字 第 一 行 第 8 列 对 应 的 二 进 制 
码 为 1， 要 打印 ) 。 打 印 一 次 “B 2” 后， 十 进 制 数 应 减 去 这 一 列 
对 应 的 权 ， 即 132 一 27 =132 一 128 三 4。 

再 继续 判断 ， 十 进 制 的 4 与 第 7 列 对 应 权 28 比 较 ， 因 
4<<25， 所 以 不 打印 ， 空 一 格 。 

如 此 继续 下 去 : 

4 挟 22， 不 打印 ， 空 一 格 ， 第 6 列 空格 
4 所 24， 不 打印 ， 空 一 格 ， 第 5 列 空格 
4<<2， 不 打印 ， 空 一 格 ， 第 4 列 空格 

此 时 ， 打 印 针头 指向 第 3 列 ， 十 进 制 数 -4 等 于 第 3 列 的 
权 2 =4， 打 印 一 个 “B ”字符 ， 并 减 去 4， 最 后 十 进 制 数 变 
为 0, 标 志 这 一 行 打印 结束 ， 而 转向 下 一 行 继续 处 理 。 

这 样 ， 打 印 出 来 的 情况 ， 和 汉字 “ 计 ” 的 第 一 行 信息 一 
样 。 

对 于 每 一 个 汉字 的 其 余 行 以 及 所 有 汉字 都 按 上 述 方法 循 
环 处 理 。 从 而 实现 了 汉字 的 再 现 和 输出 打印 。 

为 便利 程序 的 阅读 ， 我 们 除 加 注 中 文 说 明 外 ， 还 有 两 点 
提 及 :一 是 安排 了 虚 读 技术 ， 若 不 符合 字库 中 汉字 特征 字 时 ， 
通过 虚 读 跳 过 汉字 编码 ， 继 续 查 找 ; 二 是 用 了 RES TORE 
语句 ， 使 数据 区 指针 恢复 到 初始 位 置 ， 从 而 保证 下 一 次 汉字 
输入 时 识别 过 程 从 头 开始 。 

程序 清单 〈 见 H68) 和 几 个 实例 ; 
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]LIST 2 的 


2 RE 8 
5 REM 汉字 原理 程序 

]9L=12:0=9 

2 DID 

4 PRINT -9 

5 INPUT 

9 FRI = TD 

65 了 IMT : 限 IMT 

78 PRINT “输入 字 的 代码 

75 PRINT : 了 INT 

8 INPUT 3 

85 限 INT : 限 INT : PRINT 

物 RE 名 出 

19 正骨 = 3THEN 188: REM 技 到 特征 字 
165 REN 110-166 虑 读 

1 FRRP=1T0 12 

138 RE F: NEXT P 

160 60T0 % 

176 REN 189-299 八 一 十 进 制 转换 


188E= INCA3) -1 
9 F[ 妇 JJ=1T0L 
268 有 各 JJ) 

210N = MXJ) 10^E 
2203=8 

230 F 吸 KK=ET069STP -1 
240N= INT (时 
250S=9+N8^kK 
208N = (人 作 - 有 由 本 1 

218 NEXNTK 
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台 


RH 319 一 410 二 一 十 进 制 转 换 
铝 J=1T0L 
银 K=(-1T8Sf 邹 -1 
IF NMJ) 》= 2 ^KTHEN 369 
限 J 苑 ( 1 六 
60T0 39 
限 IT 多 ( 10);3 
319 DJ) = DJ) - 2 ^K 
牧 下 IJ) =4THN 4 

NEXT 


闷 交大 罕 间 二 家 知性 时 


4 和 即 
q35 REH 440-899 放 特征 字 和 八进制 孝 

448 了 表 Th JI 295， 195,5)765，138, 165， 195，195，105， 
195, 145, 195 

466 有 T 有 SURN 295,357,778, 165, 175， 185, 175， 105， 
175,54778,651 

] DIRN,2121;778,422,422;778,422,422;778 
ZL) 和 

688 下 ThA JI2，117，113， 113,753, 113,353,513, 113,11 
3,113,143, 1 人 4 

718 区 Th ET,2124778,422,422;778,422,422,778， 
202137 
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728 只 f 用 ZE3777085， 1 2822D7782b20201 


2101 

738 殉 T 朋 NG721778) 21778) 9860) 人 92,570,422,570， 
422,422,422 

7 和 只 T 放 NTE51 1 338 946 180 12P 127 12P 打 
人 的 ,1 人 105 

758 险 价 XUE,442，223 199，778) 482 57617822 
25210421 

768 只 从 向，377243 129，778422 377， 反 1 379)99 
1 24151168 

f18 下凡 KE,53707 193， 7937187343 95381093， 103 
93 83 193 

18 只 六 赂 ,5 313791 7 3 115,31 
1029304， 102 

1 各 只 从 Jo2D778 6817784027902，778 223223 
412020227422 

8 只 人 人 212b778 21215151 195,105,203,2 
602,402 


2， 打印 区 位 码 


CEC- 工 型 中 华 学 习 机 有 两 种 汉字 输入 法 ， 拼 音 输入 法 
和 区 位 码 输入 法 。 

在 汉字 系统 状态 下 ， 按 下 F 3 键 ， 屏 幕 底部 状态 提示 行 出 
现 “ 区 位 ”两 字 ， 此 时 表明 已 进入 区 位 码 输入 方式 。 

区 位 码 输入 方式 是 使 用 国家 标准 GB 2381-80 区 位 方式 输 
入 汉字 。 方 法 是 用 0 一 9 共 10 个 数字 键 作 为 汉字 的 键入 码 ， 通 
过 若 入 4 位 数字 键 将 国家 标准 中 所 规定 的 汉字 和 圆 形 符号 显 
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]RUN 
输入 字 的 个 数 : 
?35 


输入 字 的 代码 : 和 输入 字 的 代码 : 输入 字 的 代码 : 
2ET ?ZE ?JI1 
B BBBBBBB B 8B 
B B  B 
BBBBBBBBB B B 
B B 8B B BBB 8B 
B  B  B B B BBBBB 
BBBBBBBBB B 站 
B B 8B BBBBBBBBB B 8B 
B B 8B B 届 且 
BBBBBBBBB B 和 
B B  B 
BB B 
2  pB B  B 
输入 字 的 代码 : 输入 字 的 代码 : 
?SURN ?JI2 
B B B  BBB 
BBB BBB B B B 
3BBBBBBBB  B BB 
B  B BBBB B B 
BBBBB B BB 
B  B BBB B B 
BBBBB BB BB 
B 8B B 8B B 
BBBBB B BB 
B B B BB 
BBBBBBBBB B B 8B 
B B B B BB 
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示 到 光标 位 置 上 。 例 如 ， 键 入 1706，1720 后 ， 显 示 “ 宝 贝 ” 
两 字 。 

这 种 输入 方法 对 于 不 太 熟 悉 拼 音 的 使 用 者 有 不 少 方便 ， 
只 要 查 到 相应 汉字 的 区 位 码 ， 并 在 “区 位 员 态 下 融入 代码 ， 
即 可 得 到 有 关 汉 字 。 同 时 ， 相 对 而 言 输入 速度 较 快 ， 还 有 -- 
个 突出 的 优点 是 ， 对 一 些 特殊 的 汉字 ， 拼 音 状态 下 可 能 查找 
不 到 ， 而 用 区 位 码 输 入 则 可 解决 问题 。 

例如 ， 汉 字 “ 女 ”这 个 字 ， 其 拼音 是 N OU ， 在 用 拼音 输 
入 法 时 ， 键 入 NU 却 查 不 到 。 而 它 的 区 位 码 是 3714， 在 区 位 
码 输入 时 即 能 顺利 查 到 。 又 如 汉字 “ 律 ” 这 个 字 ， 它 的 拼音 
是 LU ， 同 样 在 拼音 状态 下 查 不 到 , 而 在 区 位 状态 下 融入 
3441 即 可 顺利 查找 。 

六 此 ， 区 位 码 输入 汉字 仍 受到 不 少 使 用 者 的 欢迎 。 为 方 
便 用 户 ， 如 能 设计 出 一 个 区 位 码 和 汉字 相对 应 的 区 位 码 表 ， 
类 似 一 个 字典 一 样 ， 实 为 需要 。 

如 何 用 程序 编制 一 个 区 位 码 的 字典 呢 ? 表 面 上 看 比较 难 ， 
好 象 它 几 乎 无 从 下 手 ， 实 际 上 它 还 是 有 规律 可 寻 的 。 

一 个 最 简单 的 事实 是 ， 用 字符 串 函数 ; 

PRINT CHR$(I27)+CHR$(LI)+CHR 囊 (J) 

只 要 确定 [ (区 号 ) 和 」 (位 号 ), 则 可 以 打印 出 区 位 码 
为 的 汉字 来 。 其 中 127 是 定 值 ， 是 中 华 学 习 机 汉字 中 .3 
个 字 节 中 的 标识 码 。 

例如 PRINT CHR $(127 ) 十 

CHR $(46)+CHR $(30) 

打印 汉字 “ 阿 思 

可 以 设想 ， 用 二 重 循环 ，L 作为 区 号 的 控制 变量 ，」 作 
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丸和 位 号 的 控制 变量 ， 则 可 打印 出 全 部 汉字 (包括 国标 一 、 二 
级 汉字 )。 人 循环 体 语句 为 : 
PRINT CHR $(127)+CHR $(46+ 工 ) 十 
CHR 和 $(29+ J] ) 

由 于 国家 标准 中 规定 国标 一 级 汉字 从 16 区 开始 ，16 对 应 
的 学 习 机 汉字 内 码 为 46， 这 样 当 [=0 时 ， 就 从 16 区 开始 ， 同 
理 ， 每 个 区 有 94 个 汉字 ， 其 位 号 为 01 一 94， 其 位 号 01 对 应 于 
学 习 机 汉字 内 码 为 29。 所 以 当 I =]j」 =0 时 ， 上 述 字符 串 函 
数 式 打 印 出 来 的 是 区 位 码 为 1601 的 吝 文 字 “ 啊 ”。 

显然 ，J 的 终 值 是 96，29+J =29+96=125. 相 应 的 位 
码 是 94。 

汉字 二 级 字库 的 最 后 一 个 区 是 87， 对 应 于 学 习 机 内 码 是 
118, 因 此 工 的 终 值 为 118 一 46=72， 由 于 工 也 是 从 0 开始 ， 
所 以 终 值 为 71。 考 虑 到 汉字 库存 贮 区 中 可 能 还 写 有 其 它 图 形 
符号 〈 事 实 也 是 如 此 ), 故 ! 的 终 值 可 适当 取得 大 一 些 ， 例 如 
取 工 的 终 值 为 96 。 

至 此 ， 一 个 比较 完整 的 打印 区 位 码 和 相应 汉字 的 程序 ， 
基本 形成 。 理 69 是 一 种 打印 格式 的 程序 及 部 份 运行 结果 。 


]HST 


| RH9 
3 REM 打印 区 位 得 
5 POKE 2043,2 

7 POKE 1787,3 

8 POKE 1915.5 

但 F 限 I= 0T0% 
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] 了 分 ( 18)7-- 180 《16 + TD) + 1 


2 F 妥 J=6T0% 
4 人 8 PRINT CR (27)+ CH (6+TD+ 四 
陈 (20+ JJ); 


NEXT 

限 IMT : 限 IN 
NEXT 
EN 


]RUN 

--1601-- 
刷 阿 坎 换 哎 唉 京 久 总 江 锋 艾 碍 爱 陵 较 氢 空 伪 校 
岸 股 案 航 多 盎 思 教 数 钙 榴 估 奥 钢 澳 基 搬 扒 惟 
吧 笛 从 站 巴 技 雄 拖把 起 坝 霸 轩 色白 柏 百 提 个 改 
择 穆 末 理 据 扳 般 癸 板 版 质 振 件 认 半 办 绊 邦 帮 孝 
楼 膀 卷 梯 确 时 锥 局 谋划 用 包 齐 杂 

--1 寻 -- 
薄 忆 保 堡 侈 宝 抱 报 暴 鸭 鲍 爆 杯 碑 莫 蛙 北 莫 俏 由 
饥 售 狐 备 生 烘 被 蛮 东 本 条 贿 网 十 到 中 进 昌明 比 
跟 笔 从 外 加 其 毕 弗 纪 币 庇 户 闭 阴 吉 必 用 辟 骨 交 
陛 砂 边 编 路 局 便 训 证 罪状 辩 这 标 昆 腰 未 过 疙 别 - 
得 梢 斌 泪 演 宾 按 兵 冰 柄 两 对 忆 策 


--1881-- 

尾 并 防 藻 播 技 沐 泪 傅 过 拉 铂 箔 伯 名 站 膀 梨 涡 泊 
弘 搬 上 轩 补 替 不 布 步 汪 部 帽 控 狂 莎 材 才 财 既 中 
下 彩 业 春 矢 参 重 歼 懈 惨 灿 苍 角 仑 治 蕊 操 厢 模 间 
草 遇 策 侧 册 测 层 其 插 又 茬 共 查 益 操 察 贫 莽 定 
介 身 的 换 蝉 僵 次 继 信 产 立 阁 目 狂 


程序 中 5 句 为 设置 行 允许 字数 ,本 例 为 一 行 最 多 20 个 字 。 
7 名 为 设置 字 间 距 ， 本 例 字 与 字 之 间 相 距 7 个 点 。8 句 为 设置 
行距 ， 本 例 行 与 行 之 间 相 上 距 5 个 点 。15 句 为 打印 的 一 个 表 头 ， 
实际 上 是 打印 的 每 个 区 的 第 一 个 起 始 区 位 号 。 汉 字 每 行 20 个 ， 
对 应 的 区 位 号 是 从 1601 开 始 到 1620 结 束 ， 下 一 行 从 1621 到 
1640， 以 下 类 推 。 每 一 区 的 最 后 一 个 汉字 位 号 为 94。 

但 是 ， 上 述 程序 有 明显 的 缺点 : 

其 一 是 查找 不 方便 ， 每 个 汉字 所 对 应 的 区 位 号 ， 还 要 使 
用 者 一 个 一 个 地 去 计算 ; 

其 二 是 当 工 >=12 后 ， 所 有 汉字 与 对 应 的 区 位 码 不 符 ， 
这 就 造成 很 大 的 差 误 。 

例如 ， 在 I 之 =12 后 ， 汉 字 的 区 号 相差 一 个 区 。 

如 汉字 “ 健 风 正确 的 区 位 码 是 2901 ,而 读 出 的 却 是 肌 。 

为 此 ， 必 须 对 上 述 程 序 蕊 69 进一步 修正 ， 使 之 能 打印 出 
正确 形式 ， 并 且 没 有 任何 差错 ， 以 利 使 用 。 
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]RUN 


1691 啊 1602 阿 1693 埃 1664 近 1665 踊 
1696 喀 1667 哀 1698 售 1609 癌 1616 葛 
1611 力 1612 广 1613 碍 1614 爱 1615 医 
1616 边 1517 毛 1618 安 1619 佑 1628 按 
1621 陪 1622 岸 1623 胺 1624 案 1625 朋 
1626 郧 1627 嚼 1628 四 1629 赦 1636 数 
1631 彰 1632 检 1633 做 1634 奥 1635 尾 
1636 澳 1637 世 1638 搁 1639 扒 1646 队 
1641 色 1642 首 1643 从 1644 将 1645 巴 
1646 拔 1647 嘴 1648 丢 1649 把 1650 丰 
1651 坝 1652 霸 1653 时 1654 区 1655 白 
1656 柏 1657 百 1658 捍 1659 鸽 1658 败 
1661 三 1662 种 1663 交 1664 理 1665 所 
1666 扳 1667 般 1668 癸 1669 板 1678 版 
1671 扮 1672 拌 1673 伞 1674 和 畴 1675 半 
1676 办 1677 绊 1678 邦 1679 帮 1686 郴 
1681 檬 1682 腾 1683 绑 1684 棒 1685 佬 
1686 昕 1687 匀 1688 贷 1689 详 1698 荐 
1691 觅 1692 包 1693 误 1694 璋 

1761 薄 1762 需 1763 保 1704 堡 1765 忆 
1766 宝 1767 抱 1768 报 - 1789 暴 1718 葛 
1711 鳃 1712 爆 1713 标 1714 原 1715 悲 
1716 车 1717 北 1718 募 1719 东 1728 上 由 
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1721 钢 1722 售 1723 狐 1724 备 1725 各 
1726 焙 1727 被 1728 春 1729 闲 1736 本 
1731 货 1732 骨 1733 网 1734 坪 1735 系 
1736 中 1737 送 ,1738 逼 1739 盟 1746 比 
1741 部 1742 笔 1743 和 后 1744 眉 1745 凌 
1746 藏 1747 毕 1748 甘 1749 呈 1756 币 
1751 席 1752 病 1753 闭 1754 责 1755 坦 
1756 必 1757 辟 1758 避 1759 异 1760 造 
1761 陛 1762 蒜 1763 边 1764 编 1765 风 
1766 筷 1767 便 1768 变 1769 卞 1776 撞 
1771 罪 1772 因 1773 遍 1774 标 1775 划 
1776 用 1777 隶 1778 整 1779 可 1786 绚 
1781 间 1782 彬 1783 斌 1784 濒 1785 演 
1786 宾 1787 按 1788 兵 1789 冰 1798 枯 
1791 西 1792 对 1793 居 1794 师 


仿照 “打印 特殊 字符 库 ?” 程序 的 模式 ， 并 稍 加 改动 ， 程 
序 如 H70 所 示 : 


]LST 


1 RE Hg 
2 REN 打印 区 位 克 
5 POKE 2043,50 
7 PKE 1787,? 
8 PKE 1915,5 
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]RUWN 


1 F 吸 I=8T07 
12 PRINT :PRINT 
20 F 了 JJ=8T0 的 
好多 = 了 本 人 + 


入 PRINT TAB X;199 《16 + 下) + (+ 了 


由 PRINT CHR$ 127) + :CHR 有 (46 + 工 + 失 
CHR$ (29 + 本 + N; 
590kK=K+1 


的 于 X》=34THEN PRINT 必 =6X = 
34 


站 NEXT 了 

9 PRINT : PINT 
的 KK=0h=8 
19% NEXT 了 

110 END 


1601 啊 1682 阿 1603 换 1664 换 1665 欧 
1606 1667 喀 1688 京 1609 拓 1616 六 
1611 蓝 1612 斤 1613 艾 1614 碍 1615 爱 
1616 1617 除 1618 较 1619 氧 1628 安 
1621 估 1622 按 1623 障 1624 岸 1625 有 
1626 案 1627 航 1628 晶 1629 玫 1638 

1631 凹 1632 才 .1633 雪 1634 彰 1635 鹤 
1636 散 1637 奥 1638 愧 1639 澳 1646 间 
1641 斤 1642 扒 1643 以 1644 吧 1645 爸 
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1646 人 1647 冶 1648 巴 1649 技 1650 咒 
1651 积 1652 想 1653 破 1654 坝 1655 和 
1656 轩 1657 爸 1658 白 1659 柏 1668 百 
1661 摆 1662 鸽 1663 败 1664 莽 1665 竹 
1666 缸 1667 班 1668 搬 1669 扳 1679 技 
1671 侨 1672 板 1673 版 1674 扮 1675 措 
1676 伴 1677 灸 1678 半 1679 办 1689 妊 
1681 邦 1682 帮 1683 柳 1684 楼 1685 腾 
1686 绑 1687 棒 1688 芋 1689 昕 1699 镑 
1691 人 局 1692 庄 1693 苞 1694 服 


程序 H70 运 行 结 果 表 明 ，1606，1616，1630 这 三 个 区 位 
码 对 应 的 字符 打印 不 出 来 。 

不 仅 如 此 ， 许 多 区 位 号 对 应 的 汉字 不 正确 。 考 察 其 原因 
是 汉字 系统 中 在 06 ，16，30 这 三 个 位 号 上 ， 汉 字 存 贮 空 了 一 
个 单元 ， 而 所 有 各 区 在 06 ，16 ，30 这 三 个 位 号 都 有 类 似 的 情 
况 。 而 在 I > 之 =12 以 后 ， 所 有 汉字 区 号 相差 1 。 为 此 ， 应 在 
程序 H70 基 础 上 ， 加 注 四 个 判断 条 件 ， 即 L = 12，J=5,] = 
14，」 = 一 27 的 分 别处 理 ， 完 整 的 程序 清单 见 打 印 区 位 码 1。 全 
部 汉字 区 位 码 打印 结果 见 本 书 附 录 2. 中 华 学 习 机 汉字 区 位 码 。 

0 okE 1644) 本 

1 REM HTo 

]1IST 

2 REI 打印 区 位 碍 1 

5 PUKE 2043750 

7 PKE 1787，3 
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9 


8 PUKE ， 
0 T0 7 


1919 
10 FIR = 
12 IfIz=l 
20 FF 只 J=8T 
28X=7*#(kt+1 
PRINT ThB( X)7100 * (1 + IJ) + (+ 


39 IfFJ=95THNN=1 

3 IJ=14THENN=2 

3 IfJ=2fTHNNz= 3 

49 PRINT CHR$ 《127)》 + CHR$ 《496 + 工 + 
作 + CHR 和 《29 + 本 + 从) 

50k=k+1 

08 IFX》=34THEN PRINT := 8:% = 


396 pRINT : PRINT 
05K=0h8= 
08 NEXT 了 

116 END 


区 位 码 不 仅 是 汉字 输入 方法 中 常用 的 编码 方案 ， 而 且 它 
具有 使 广大 程序 员 感 兴趣 的 独特 字符 ， 但 目前 市 场 上 又 没有 
现成 的 区 位 码 本 ， 因 此 在 这 里 介绍 了 打印 区 位 码 的 方法 并 提 
供 了 全 部 码 本 〈 详 见 本 书 十 、 附 录 )。 由 于 国家 标准 区 位 码 是 
一 致 的 ， 故 对 其 它 微机 使 用 区 位 输入 也 有 实用 价值 。 

调用 特殊 字符 畜 ， 并 加 注 区 号 表 头 ， 同 时 控制 打印 机 ， 
使 每 页 打印 纸 上 只 打印 两 个 区 的 区 位 码 和 汉字 ， 然 后 自动 跳 
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页 ， 使 于 打印 整个 码 本 自动 控制 ， 以 利 存档 ， 见 程序 H71: 


] 

1 EN HP 

2 REI 打印 区 位 得 2 

) P0kE 2043，50 

7 POKE 1787，3 

8 PORKE 1919，59 

9 FRI=8T07 

1 PRINT TAB 19》5 CHR 于 《127》 二 CHR 

(125) + CHR 《124 6 

R$ 《127)》 + CHR$$ 《125》+ CHR 下 《124) 

12 PRINT : PRINT 

1 IfI=1l2THNN=1 

20 FIRJ=6T093 

08 X=7 了 # 人 +1) -和 

38 PRINT TABC Xi3100 k 《16 + TI) + (+ 
| 二 


志 
35 IFJ=5TJHENN=1 
36 IFJ=14THENN = 2 
38 IfFJ=27rTHNN = 3 
40 PRINT CHR 和 (127) t+ CHR$ (46 + 工 + 
导 ) + CHR 和 《29 + 本 + 有 N); 
58KkK=k+1 
6 IF》 =34THEN PRINT :kK = 0 = 
4 -3 
88 NEAT 了 
8 N=8 
98 PRINT : PRTNT 


95K = 0 人 = 

% IFIC》IML/A2)*2THEN FOR 
9$=1T045: PRINT : NEXT 

198 NEXT 

110 EN 


相应 的 运行 结果 ( 仅 打印 1 个 区 ) 


]RUN 
码 18 妇 


1861 病 18682 并 1863 玻 1864 蔬 1865 播 
1866 拔 1867 钵 1868 波 1869 博 1816 支 
1811 捕 1812 铂 1813 落 1814 伯 1815 利 
1816 船 1817 下 1818 天 1819 汗 1828 泊 
1821 避 1822 捕 1823 上 下 1824 畏 1825 补 
1826 埋 1827 不 1828 布 1829 步 1838 簿 
1831 部 1832 怖 1833 控 1834 猜 1835 茂 
1836 村 1837 才 1838 财 1839 荣 1846 娟 
1841 采 1842 彩 1843 菜 1844 芍 1845 短 
1846 参 1847 重 1848 残 1849 刁 1850 惨 
1851 灿 1852 苍 1853 秀 1854 仓 1855 治 
1856 赢 1857 操 1858 精 1859 醒 1866 草 
1861 草 1862 而 1863 策 1864 侧 1865 问 
1866 1867 层 1868 虽 1869 藉 1876 又 
1871 茬 1872 茶 1873 查 1874 蔓 1875 抬 


263 


1876 察 1877 盆 1878 差 1879 完 1886 拆 
1881 上 化 1882 圣 1883 的 1884 排 1885 婵 
1886 使 1887 次 1888 缠 1889 柱 1898 产 
1891 疼 1892 闸 1893 目 1894 罗 


3. 汉语 拼音 字典 


用 计算 机 编制 一 个 汉语 拼音 字典 ， 是 一 个 十 分 有 趣 的 事 
情 。 把 汉字 存放 在 以 拼音 字母 为 特征 字 的 DATA 语 句 中 ， 
输入 汉语 拼音 字母 ， 就 能 找到 和 该 拼音 字母 相对 应 的 所 有 汉 
字 ， 不 仅 查 找 速度 比 查 真正 的 字典 快 ， 而 且 一 个 字 也 不 会 遗 
漏 。 因 此 ， 为 汉字 软件 的 编制 提供 了 一 个 有 实用 价值 的 工 
具 。 

这 对 不 熟悉 汉语 拼音 的 用 户 ， 或 者 对 一 些 根本 没有 学 习 
过 拼音 的 同志 ， 无 疑 是 一 个 福音 。 他 们 可 以 利用 本 “ 字 典 ? 
方便 迅速 地 查找 到 需要 的 汉字 。 

不 仅 如 此 ,对 老师 ， 对 学 生 ， 对 一 切 和 汉语 打交道 的 人 ， 
这 本 字典 都 是 有 用 的 。 

这 实在 太 方便 了 ， 不 认识 的 字 ， 记 不 清 的 字 ,” 纠 正 错 别 
字 ， 只 要 打开 机 器 ， 放 上 存 有 本 程序 的 磁盘 ， 就 可 以 顺心 地 
查找 所 需要 的 汉字 ， 而 且 一 查 就 是 一 大 片 ， 许 多 同音 字 也 相 
应 地 被 查 出 来 。 

下 面 先 给 出 程序 〈( 见 汉语 拼音 字典 ), 再 给 出 使 用 方法 ， 
最 后 将 程序 略 加 说 明 。 

程序 非常 短 , 除 存 有 汉字 的 数据 区 外 , 一 共 只 有 20 多 行 。 
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汉字 库 在 本 程序 中 仅仅 放 了 a, b 两 个 拼音 字母 的 汉字 ， 这 是 
为 了 说 明 原理 ， 如 要 成 为 一 个 完整 的 字典 ， 请 再 继续 输入 其 
余 汉 字 。 


]LUIST 


2 RE B-IK-1 
5 REM 汉语 拼音 字典 
入 DJ 的 (59) 

35 ONE 限 60T0 5 


0 限 J-1TD 2 

他 N=N+1 

f 人 I=1T0 LEN (的 (J))》- LEN (下 
+ | 

物 下 下 人 》 孙 顺 ( 扣 (LEN 《了 )》 
THEN 120 

180， 耻 JINT 于 “; 

110 耻 INT 7 朋 坷 

120 MENT 

130 NEXT 

135 RESTURE 


“MO 和 “ 训 
) 汀 "60T0 135 
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1]526 60T0 5 
10% EN 


2 到 INT a 腿 阿 吕 及 闻 闻 加 阿 加 作 秽 防 厦 


?区 -IRTH al 规 近 晓 史 京 角 癌 区 狠 文 碍 爱 随时 
提 贷 许杰 裕 隐 攻 

2 INT 过 所 安信 近 晴 岸 案 厂 广 机 
这儿 


238 哆 fh an 
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9 航 吕 江 
2 DRTN ao 轩 才 人 入 村 和 下 
汕 嫩 谨 座 朱 旭 基 若 苏 所 知 


250 “IfTh ha 世 指 扒 队 得 作 罕 巴 技 过 把 反 
坝 凋 叶 公 岂 权 芭 防 粘 多 扰 入 

288 INTR bai 日 析 百 押 何 败 矢 穆 群 提 虹 从 
278 . 哈 Th han 短 斑 据 报 亿 合板 版 扮 拉 件 诸 半 


四 幸 交 人 估 
50 DT barg 厚 可 樟 科 相克 晴信 请 尖 


萝 

298 [fk 0 和 汪 代 主 二 宝 折 朱 
暴 约 龟 爆 烛 聊 便 瀑 秋 任 多 伯 匆 得 中 ~ 

家 rt 
季 共 夫 昔 四 辽 帮 信和 锭 扣 信 和 
3 坊 区 Th ben 杰 蒜 本 茉 机理 链 符 公 
;0 hena 裔 关 有 避 月 寺 寻 人 


由 
二 到 


1 莫 边 袁 | 
者 时 和 
360 天 Th an ; 款 儿 用 
鱼 放 

6 DTR be 过 束 别 和 查验 

玉 JRTR bin 槛 时 基 流 定 术 玉 术 半 以 食 纺 


瞩 险 
2 In ba 机 和 后 并 习 术 


590 TNTR bn 入 某所 拓 沐 清 吉 二 欠 洛 伯 角 
脖 莫 潮 治 求人 天 天 相 日 路 四季 旨 请 路 钙 曼 践 


至 检举 页 绵 地 二 
dg DT bu 摘 琴 补 替 不 布 皮 清 部 怖 堡 博 遂 
晴 锅 卫 中 鲜 


]RUN 
2 
bu No: 2 


3 有 不 上 和 部 人才 


da0 NO: 5 
To 后 和 代 史记 
勒 旭 基站 鞭 志 天 
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名 | 
是 
上 机 人 六 并 屏 术 划 扩 ， 


ang No: 1 


4 

bo No: 好 本 ， 
机 0 孩 攻 播 抗体 活 卉 名 二 伯 消 怕 乌 他 用 箭 渤 泊 
训 刘 区 有 多 沪 李 英和 杀 这 中 基本 
电 打 林 


本 字典 的 操作 方法 简便 灵活 ， 甚 至 根本 不 熟悉 计算 机 语 
言 的 人 ， 几 分 钟 以 内 就 可 以 学 会 操作 ， 无 师 可 以 自 通 。 

敲 入 RUN 并 回 车 后 ， 屏 幕 上 出 现 一 个 ?, 此 时 只 要 键入 
小 写 的 拼音 字母 ， 实 际 上 是 英语 字母 ， 即 可 查找 到 对 应 该 拼 
音字 母 的 所 有 同音 汉字 。 甚 至 殴 入 一 个 字母 ， 也 可 以 查找 到 
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对 应 这 个 字母 的 汉字 。 


bing 能 查 到 ， B IN G 查 不 到 。 


由 于 本 程序 是 一 个 原理 程序 ，DATA 语 句 中 只 放 了 a 
和 b 打 头 的 汉字 ， 所 以 不 是 ab 打头 的 字母 查找 不 到 。 
时 请 将 所 有 汉字 连同 拼音 字母 存 人 DATA 区 中 。 如 sa 查 不 
到 。 

特征 字 用 小 写 英文 字母 ， 输 入 大 写字 母 查 不 到 。 如 小 写 
若 要 继续 查找 ， 键 入 并 并 回 车 


即 可 。 


开机 后 可 以 查找 任意 次 ， 而 不 需要 经 任何 转换 。 
如 果 删 去 110 名 后面 的 GOTO135， 则 又 是 一 种 检索 方 


请 见 运行 实例 ， 

]RUN 

29a0 

ao0 ND: 5 

ka0 思 邦 雪 钥 斌 明生 帘 澳 吐 趣 束 基 营 洁 玲 启 
查 邵 盐 芭 勒 示 党 吾 汪 5 二 出 三 忆 和 妆 

其 如 区 雳 动 划 私 求 

an No: 所 

fba0 首 则 训 这 天 清 下 吕 芭 训 宝 指 报 暴 的 郊 时 

昌 困 浊 果 入 汪汪 

ao 训 : 折 

了 ba0 栋 沉 用 老林 影 和 规 才 狂 交 这 芷 计生 时， 

介 本 

ban :8 


机 an 旭 班 类 报 最 轿 梳 版 挡 提 件 狂 半 办 尘 狂 襄 庆 
各 颖 隔 # 
han No: 9 
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实用 


fbang 邦 大柳 樟 轴 绑 樟 雁 晨 铺 合 庄 泊 和 


bi ho: 下 
na 抽 上 全 
国富 人生 拓 ， 


1 No 本 
村 an 挤 这 户 肪 高 便 误 十 振 料 畔 记 让 妨 秆 论 耻 
_ 生 扩 区 六 视 芷 和 下 划 估 * 


b 折扣 


4ian 标 览 用 来 5 已 构 部 锰 德 隐 疗 矣 祝 诗 训 4 


ft NO 和 


he 和 
en 
对 枯 


本 AND 志 


bing 兵 水 柄 两 村 懂 俩 病 并 屏 术 本 可 所 六 4 


运行 实例 说 明 : 
.。 殴 入 ao， 能 查找 到 拼音 为 ao，bao，biao 的 所 有 汉字 。 
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“ 胡 入 ban， 能 查找 到 ban，bang 的 所 有 拼音 相对 应 的 汉 


字 。 
。 逆 入 bi， 能 查 到 bi，bian，biao，bie，bin，bing 的 
拼音 汉字 。 
。 吉 入 大 写 BI ， 查 找 不 到 ， 以 虚 点 线 提 示 找 不 到 信息 。 
“。 散 入 并 结束 。 


这 就 是 说 ， 坑 入 某 个 或 某 几 个 拼音 字母 ， 则 可 以 查找 到 
包含 该 字母 的 所 有 汉字 。 这 样 做 ， 有 优点 也 有 缺点 ， 优 点 是 
可 以 给 出 更 多 的 汉字 供 选择 ， 如 ban 中 没有 的 汉字 ，bang 中 
就 有 可 能 有 。 缺 点 是 查找 的 太 多 了 ， 有 的 还 重复 显示 拖 次 。 
如 bi an 就 显示 了 两 次 。 而 当 汉 字库 中 包含 了 全 部 汉语 拼音 字 
典 时 ， 反 而 不 易 辨认 ， 需 按 CTRL-S 键 边 查 边 看 。 

所 以 实际 使 用 时 ， 还 是 在 110 句 后 面 加 上 GOTO135 为 
好 。 

本 程序 编制 要 点 说 明 : 

人 DT M 语句 是 数组 说 明 语句 ， 本 程序 用 字符 串 A 书 作 
为 变量 名 ， 下 标 用 了 50 ， 这 样 只 可 以 读 50 组 DA 个 A 区 中 的 
信息 ， 实 用 编制 一 个 完整 的 字典 时 ， 下 标 要 用 到 400 多 个 ， 
如 DIMA $ (450)。 如 本 程序 DATA 语句 共 21 个 ， 每 个 
DATA 语 句 存放 一 种 拼音 的 汉字 ， 若 用 DIMA$(10), 则 
从 A$ (11) 到 A$ (20) 的 信息 读 不 到 。 

@) 每 -- 个 DATA 语句 只 存放 一 个 同音 汉字 的 拼音 代 
码 ， 和 该 代码 对 应 的 汉字 。 这 样 做 ， 输 入 汉字 方便 ， 容 易 检 
查 。 而 排列 顺序 按 字 典 格式 先后 顺序 排放 。 

G@) 为 了 能 连续 查找 ,135 句 的 恢复 数据 区 语句 RESTORE 
是 必 不 可 少 的 ， 否 则 J 循 环 后 ， 经 150 句 GOTO55 上 去 后 ， 
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将 无 数据 可 读 。 

团 J 循 环 变量 的 终 值 ， 应 和 DATA 语句 中 存放 的 汉字 
信息 一 致 ， 不 能 少 也 不 要 多 ， 少 了 则 有 些 信息 读 不 到 ， 多 了 
“ 则 浪费 时 间 ， 查 找 速度 变 慢 。 这 里 系 指 60 一 130 句 的 」 循环。 

图 30 句 的 丁 循环 变量 终 值 ， 可 以 取得 大 一 些 ， 原 则 上 
大 于 DATA 语 句 的 汉字 信息 个 数 都 不 会 出 问题 ， 因 为 有 25 
句 ONERR GOTO 语 句 的 安排 ， 程 序 不 会 因 人 已 ADY/ 
DATA 不 配对 而 出 错 。 本 的 终 值 放 的 大 一 点 ， 其 好 处 是 可 
以 使 DA TA 区 信息 增多 留 有 余 量 。 

人 @ 和 葵 入 特征 字 ( 或 称 关键 字 ) 一 定 要 小 写 ， 目 的 防止 和 
汉字 信息 的 内 码 相 混淆 ， 否 则 改 为 大 写 ， 会 查找 出 一 些 莫名 
其 妙 的 信息 来 。 

@O DATA 语 句 中 特征 字 和 汉字 和 输入 方法 ， 进 入 中 文 
状态 后 ， 按 小 写字 母 键 送 入 小 写 拼 音字 母 至 DAT 和 语句 后 ， 
按 F 2 键 进入 拼音 输入 方式 ， 再 键入 对 应 的 小 写字 母 ， 然 后 
按 1,2,3,4,5, 6 键 ， 这 样 ， 对 应 的 汉语 拼音 小 写字 母 的 汉字 
将 一 个 一 个 地 跳 入 DATA 语句 中 ， 按 “> 之 ” 键 ， 直 到 对 应 
于 输入 的 拼音 字母 .的 全 部 汉字 输入 完了 ， 按 RETURN 键 ， 
即 可 存 贮 一 个 DATA 语 句 汉 字 信 息 。 以 后 的 输入 同上 方 
法 。 

20 一 160 句 的 原理 ， 在 本 书 中 有 几 次 提 到 ， 这 里 从 略 。 
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七 .现代 管 理 


1， 最 少 余 料 


实际 生活 或 工作 中 ， 常 常 碰 到 用 什么 方法 截取 才 使 用 料 
最 省 ， 例 如 裁 衣 、 裁 纸 、 饮 木料 、 截 断 钢铁 等 等 。 通 常 的 方 
法 都 是 根据 手工 算 ， 或 者 反复 用 尺 量 ,这 样 ， 既 费时 又 费 工 ， 
还 不 能 保证 最 大 限度 的 节省 原材料 。 如 果 编 制 一 个 程序 ， 利 
用 条 件 语句 判断 ， 循 环 语句 查找 投 试 ， 就 方便 多 了 。 下 面 是 
一 个 应 用 实例 ， 读者 不 难以 本 程序 的 设计 方法 为 参考 ， 编制 
出 更 多 地 解决 各 种 各 样 的 实际 问题 程序 来 。 

一 根 长 369cm 的 钢筋 ， 截 成 长 为 6gcm 和 39cm 两 种 规格 
的 短 料 。 问 在 这 两 种 规格 至 少 各 截 一 根 的 前 提 下 ， 如 何 截 法 
所 剩余 料 最 少 ? 

解法 1， 设 X，Y 分 别 表 示 69cm，39cm 两 种 规格 的 根 
数 。 

X1，Y1 分 别 表示 最 佳 方案 时 两 种 规格 的 根 数 。 

Z，D 为 两 种 规格 相 邻 方案 的 余 料 。 

程序 设计 思想 是 让 Y 从 1 递增 ，X 和 逐一 递减 ， 根 据 方 程 
Z=369 一 69X 一 39Y 决 定 余 料 Z， 将 Z 值 与 D 值 (D=369 
为 开始 值 ) 比 较 ,Z >D 循 环 再 找 ;， Z<D 进 行 交 换 ， 即 D = 
Z: XIl=X:， YI=Y， 再 循环 上 去 ， 从 而 最 后 寻找 出 最 佳 
方 料 使 余 料 最 少 。 见 程序 H72 : 
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(3609 -Y*y 39) /7 00) 
多半 09 -了 309 
和 


和 
少 余 料 2 5 人 = 人 


解法 2 ， 据 题 意 ， 容 易 看 出 在 Y 最 少 取 一 根 的 情况 下 ， 
X 最 多 只 能 取 4 根 ;， 同 理 ， 在 X 最 少 取 一 根 时 ，Y 最 多 只 能 
取 7 根 。 这 样 ， 可 以 安排 两 重 循环 处 理 ，X、Y 立 的 初 值 和 终 
值 分 别 为 1，4 和 1，7， 人 循环 体 中 安排 D=369 一 69X 一 39Y， 
从 而 有 一 个 X 和 YY 值 ， 就 有 一 个 D 值 ， 程 序 运行 后 ， 计 算 机 
会 自动 算出 各 种 可 能 情况 下 的 X，Y 和 D 值 。 我 们 可 以 根据 
结果 , 稍 加 判断 即 可 得 出 X=3，Y=4，D=6 的 结果 是 最 佳 
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方案 。 程 序 见 最 少 余 料 2 ， 其 中 负数 显然 是 不 合理 的 。 本 程 
序 的 最 大 优点 在 于 ， 可 以 提供 多 种 截取 根 数 的 方案 ， 从 而 可 
以 为 实际 工作 时 选用 ， 例 如 ,， 除 X=3，Y=4，D=6 以 外 ， 
区 二 -4 荆 2 过世 9 文 二 1 二 7 和 二 27 以 及 天 三 2 
Y=5,D=36 都 是 可 以 选用 的 ， 因 为 余数 D 值 不 可 以 再 作 本 
题 要 求 ， 不 再 可 以 截取 。 见 程序 H73 : 


]HST 


2 RH 
5 REIH 最 少 余 料 2 
18 PRINT Th TY TAB( 5)Y ”最 


CD 忆 ) 
一 J -Cn 


本- 39 汪 于 
90 了 RINT Ni “YY” “有 


至 


aa 
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La -记忆 -记忆 -Ca CC co CC Co2 信人 2 m> > 六 > 广 2 广 2 一 
一 」 Cn 7 -Cs 八 2 一 "一 」 Cn CO 上 户 《5 广 2? 一 一 | Cn Cn -所 2 广 2 一 一 
< 


解法 3 ， 程 序 H73 运 行 后 ，D 值 出 现 许 多 负 值 ， 说 明 上 
述 程序 不 够 完善 ， 事 实 上 只 要 加 一 个 条 件 判断 语句 ， 当 D 小 
于 零 时 再 循环 查找 ， 程 序 如 H74: 


]HST 


2 REHH4 
5 REM 最 少 余 料 3 
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地 PRINT TAB 二 Th 5)Y 


] 看 1 

1T07 

人 =309-69*#X%-398Y 
的 于 D8THEN 6 

9 PRINT 和 ”9Y 和 ”5 
00 NEXNTY 

f@ 人 ENT 

8 EN 


]RUN 


4 


-< -局 《2 《As 《A2 《2 六 3 人 2 人 2 人 2 人 2 一 一 > 一 一” 一 一 一 ”二 < 
人 > 一 - 忆 CA5 广 2 -一 〔〈 娘 - 忆 CA2 八 2 一 一 」 Cn CC7 -己方 2 一 -一 
“- 下 
CD 


取 
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解法 4 ， 实 际 上 ， 本 题解 法 不 一 定 用 二 重 循环 ， 因 为 当 
Y 值 取 一 系列 值 后 ，X 就 有 一 一 对 应 的 值 ，X 值 的 循环 可 以 
用 赋值 语句 来 实现 ， 这 样 ， 循 环 次 数 可 以 大 大 减少 ， 提 高 了 
程序 执行 的 速度 。 见 程序 H75: 


]LIST 


2 REN H79 

5 人 EN 最 少 余 料 4 

1 PRINT T 角 (TY TB 5 Yi 最 
少 余 料 " 

各 FIRY=1T07 
38=7 了 -1Y 

人 D=360-069yX-39yY 
全 二 DTHEN68 

史 限 朵 和 ”2 
6 NEATY 

8 ED 


解法 5 ， 以 上 几 个 程序 中 除 解法 1 外 ， 都 有 几 种 解 ， 而 
真正 符合 题 意 要 求 的 最 佳 余 料 应 只 有 一 组 ， 还 需要 我 们 再 判 
断 ， 实 在 不 方便 ,其 实 这 种 判断 完全 可 以 由 计算 机 自动 完成 。 
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例如 当 余 料 Z 小 于 0 时 ， 显 然 不 合理 ;同时 最 少 余 料 D 小 于 
相 邻 余 料 Z 时 ， 也 不 合 要 求 。 考 虑 到 这 两 种 情况 后 ， 程 序 可 
以 这 样 编写 ， 见 H76 : 


]UST 


2 REM HY6 

5 REN 最 少 余 邦 

18 PRINT ThRB( 1 TB 5)5Y ”最 
少 祭 料 


3 F 限 Y 
性 Z2=309 -的 #X-39*Y 
59 IFZ《8THN7 

5 IFD(ZTHENY 
b8D=ZX=XYL = 

人 NEXT YY 

8 NEAT YX 

和 9 RINT ”5” 
9 EN 


2， 最 佳 运输 方案 
某 公司 有 两 个 下 属 单位 A 和 B ， 共 需 某 种 型 号 的 微机 22 
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台 ， 但 这 种 机 器 只 有 C、D 两 地 有 存货 ， 分 别 为 8 台 和 14 人 台 
已 知 这 种 小 型 机 的 运费 如 表 7.1: 


表 7.1 (单位 :元 / 台 ) 

















问 A、B 两 单位 如 何 分 配 机 器 (最 少 8 台 ， 最 多 14 台 )， 
才能 使 总 运费 最 少 ? 

解 : 让 计算 机 比较 各 种 不 同 的 分 配方 案 ， 从 而 求 出 最 佳 
的 运输 方案 。 

令 X、Y 为 A 单 位 从 C 地 、D 地 调 入 的 计算 机 ， 则 B 单 
位 从 C 地 、D 地 调 进 的 计算 机 为 8-X 台 和 14-Y 台 ,了 为 累计 
的 总 运费 , Z 为 一 个 假想 的 调运 方案 的 运费 ， 如 Z 取 2000( 此 
值 应 取得 高 一 点 ， 应 大 于 等 于 最 高 运费 )。 

由 于 每 个 单位 究竟 调 进 (分 配 ) 多 少数 量 的 机 器 是 待 求 
的 ， 所 以 可 以 安排 循环 人 遍 找 ， 最 少 是 8 台 ， 最 多 是 14 台 ， 这 
就 是 循环 的 初 值 和 终 值 。 

由 于 C 地 仅 有 8 人 台 机 器 ， 和 A 单 位 从 C 地 可 以 不 调 ( 为 0)， 
也 可 以 调 〈 最 多 是 8 )。 因 此 ， 循 环 变量 X 的 取 值 为 0 到 8; 
同 理 ， 由 于 D 地 共有 14 台 微机 ， 和 单位 从 D 地 调 进 机 器 是 0 
到 14 中 的 任 一 个 数 。 

至 于 运费 ， 应 根据 从 C 地 和 D 地 调 入 的 机 器 数 及 运往 不 
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同 的 地 点 的 运 价 来 决定 ， 即 : 
H=30X+60Y+20(8 一 X)+80(14 一 Y) 
=10X 一 20Y 十 1280 
此 值 应 为 最 低 。 
故 有 程序 H77 : 


]UST 


1 RNHH7 

2 REM 最 佳 运 输 方案 1 
3 RENH 6-T-1 
57 = 200 

7 FN=8T01 

1 FIRXY=6T08 
20 FIRY-=6T044 
30 IFXY+Y( >NTHEN 9% 
4H=10+ryX-20+Y+128 
全 下》7THEN 9 

踢 叶 =XYL=Y2=H 

% NEXTY 

] 的 NEXTY 

118 PRINT 听从 (地 调 进 :”51 

1 人 5 PRINT 鸣 同 地 调 进 :"Y1 

126 PRINT 3 从 地 届 进 :";8 - XI 
125 PRINT 吕 人 地 轴 进 :514 - YI 
138 了 INT "最 低 运 费 :";7 

132 了 INT 

135 NEXTAN 

138 了 PRINT 

148 6 


]RUN 

和 人 C 地 调 进 :0 
RD 地 调 进 :8 
B 从 [地 调 进 :8 
人 地 刘 进 :6 
最 低 远 费 :1128 
和 地 调 进 :0 
和 地 调 进 :9 


最 低 话 费 :11 


RD 地 调 进 :1 
从 地 调 进 闻 

地衣 这: 

最 低 运 旨 :1080 
从 [地 调 进 :6 

hf 从 地 调 进 :11 
BR 从 5 地 调 进 :8 

了 UND 地 亩 进 :3 

最 低 远 费 :1966 
从 [地 调 进 : 9 

fID 地 调 进 :人 

8 从 [地 调 进 :8 

8 从 D 地 调 进 :2 

最 低 运费 :194 
和 从 [地 调 进 :8 

生地 届 进 :全 
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8 地 调 进 : 
最 民运 费 : 1 


从 以 上 结果 可 以 看 出 ， 当 和 A 单 位 从 D 地 调 进 14 台 微机 ， 
而 B 单 位 从 C 地 调 进 8 台 微 机 时 ， 其 运费 最 低 。 故 按 A 单 位 
分 配 14 台 微机 B 单 位 分 配 8 台 微机 处 理 ， 公 司 只 要 拿 出 最 低 
运费 1000 元 。 

讨论 : 

若 A 单 位 分 配 10 台 微机 ，B 单 位 分 配 12 台 微机 ， 和 人 和 人 单 
位 分 配 12 台 微机 ，B 单 位 也 分 配 10 台 微机 ， 这 两 种 分 配方 案 
中 , . 那 一 种 分 配方 案 才 能 使 运费 最 少 ? 

显然 ， 可 以 从 上 述 不 同方 案 中 ， 找 出 合理 的 调运 方案 ， 
前 者 H= 1080 元 ， 后 者 H= 1040 元 ， 故 两 单位 分 配 相同 数目 
微机 ， 运 费 最 少 # 

事实 上 ， 也 可 以 用 程序 H78 求 解 : 


]HST 


1 RENH H8 
3 RE 6-T 
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?2 = 2008 
f JP 全 站: 了 RNT EN 


1 


XTX 

116 PRINT % 从 (地 调 进 :"1 

115 PRINT “9 从 D 地 调 进 :”Y1 

1 为 限 INT 加 从 [地 凋 进 :"58 - YX1 
125 PRINT 3 人 地 悦 进 :514 -YI1 
139 PRINT "最 低 运 费 :"37 

132 了 IT 

1%5 60T07 


人 从 (地 调 进 :0 
各地 亩 进 :12 
了 从 [地 轴 进 :8 
从 地 调 进 :2 
最 低 送 费 :1040 
上 F-! 

=-1 


这 个 结果 ， 和 程序 H77 的 运算 结果 是 一 致 的 ， 从 这 里 看 
出 程序 H78 通 用 性 更 好 一 些 ， 只 要 输入 某 一 单位 需要 微机 人 台 
数 N ， 即 可 找到 最 佳 调运 方案 使 运费 最 少 。 

程序 H78 只 用 了 二 重 循环 ， 并 改 用 INPUT 语句 ， 使 程 
序 更 为 灵活 。 第 8 句 终止 标记 的 安排 也 是 一 个 小 小 的 技巧 。 

若 由 于 某 种 原因 ， 例 如 与 C 地 已 事先 订 好 合同 ， 必 须 从 
C 地 买 进 一 台 微机 ， 则 程序 如 何 安排 呢 ? 

下 列 两 种 方法 之 一 均 可 : 

(1) 用 H77 程 序 ， 

10 句 改 为 : 1 FOR X=1 TO 8 
或 11X=1、 删 去 100 句 NEXT  X 

(2) 用 H78 程 序 : 

10 句 改 为 : 1 FOR X=1 TO 8 
或 10X=1， 删 去 100 句 NEXT X 

你 能 说 出 道理 吗 ? 特别 是 删 去 FO R7VNE XT 循 环 ， 而 
改 用 10 X=1。 请 读者 自行 考虑 ， 并 上 机 验证 。 

如 果 各 地 不 仅 运 费 不 同 ， 而 且 微机 价格 有 异 ， 程 序 又 如 
何 编制 呢 ? 
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设 最 少 从 C 地 购买 一 台 微 机 ， 其 余 情况 参照 表 7.2 完成 








革 





D 可 供 14 台 








设计 思路 和 方法 同上 ， 只 需 将 Z 值 和 下 值 改 变 。 
下 面 给 出 两 种 程序 H79 和 H80。 工 作 原 理 请 读者 自行 分 
注意 程序 H80 中 10 句 的 安排 技巧 。 


om OOD 
-Ca 


F 吸 X= 1T0 
F 中 Y= 4 T 
IFXtY( > 地 THEN 和 

人 Hz=3238*X+280+Y+2420+ (8 - 
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X) + 2789 k (4 - 作 ) 

多 下 H》ZTHEN 9 

28 扩 =XY1=YZ2=H 

9 NENTY 

1 的 ENT X 

1 了 RINT 0= 六 二 ”= 1 

120 了 RINT :0 -7D= 
] 

138 PINT 半 庆 

148 END 


= 1 

FRY=- 关 T0 12 

IFX+Y《 >》 地 THEN 9 

由 HH= 3238# Nt+2860kY+ 2420*# (8 - 
区 2788 本 《二 -Y) 

人 下 H>ZTHEN 9 

84 = YYZ=H 

物 人 ENTY 
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1 限 JNT :0 ” -1 

128 PRINT :0=58 - Xi” “9 人- 
| 

139 PRINT 站" 

1 EN 


]RUN 

和 作 (=1 -9 
BO=7 D=9 
上 -59810 


3. 最 优生 产 顺 序 


计算 机 用 于 工业 企业 的 实际 生产 管理 已 不 泛 其 例 。 而 且 
越 来 越发 挥 它 的 威力 。 如 各 种 工程 设计 往往 需要 多 方案 比较 ， 
可 行 性 研究 。 使 用 计算 机 不 仅 大 大 减少 繁重 的 工作 量 ， 而 且 
又 有 可 能 提供 最 佳 方案 ， 缩 短 设计 周期 ， 提 高 经 济 效益 。 下 
. 面 ， 我 们 举 一 简单 应 用 实例 。 

题目 , 设 有 nm 个 产品 经 由 M 部 机 器 加 工 ， 且 每 个 产品 需 
先后 由 A 、B 、C…… 机 器 依次 加 工 完成 ， 这 M 部 机 器 对 每 
个 产品 加 工 所 用 机 时 各 不 相同 。 试 确定 出 mn 个 产品 的 最 优 加 
工 次 序 ， 使 总 加 工时 间 为 最 短 。 

分 析 : 这 属于 排序 问题 。 根 据 工 作 的 轻重 缓急 和 经 济 效 
益 等 具体 情况 ， 应 用 数学 方法 来 分 析 ， 利 用 计算 机 来 求解 ， 
在 各 种 可 行 性 的 生产 顺序 方案 中 ， 求 一 种 最 佳 的 生产 顺序 。 
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由 于 实际 情况 是 多 方面 的 ， 解 决 各 种 类 型 的 排序 问题 还 比较 
困难 ， 为 此 ， 常 根据 某 种 特定 要 求 来 进行 程序 设计 ， 如 怎样 
缩短 生产 周期 ， 提 高 机 床 利 用 率 等 。 

我 们 先 看 一 个 最 简单 的 实例 。 设 有 2 个 产品 ， 每 个 产品 
分 别 由 A、B 两 部 机 器 加 工 ， 每 部 机 器 对 各 个 产品 的 加 工 机 
时 如 表 7.3: 


表 7.3 











按 上 述 顺 序 加 工 ， 则 当 第 一 种 产品 加 工时 ， 机 器 B 是 停 
机 待 工 的 ;等 到 A 机 器 加 工 完 第 一 种 产品 时 ， 机 器 B 实 际 上 
等 了 5 小时， 而 当 机 器 A 加 工 第 二 种 产品 时 ， 机 器 B 才 开始 
工作 并 加 工 第 一 种 产品 ， 而 等 到 机 器 B 工 作 2 小 时 后 ， 第 二 
种 产品 已 经 由 机 器 A 加 工 完成 ， 必 须 再 等 1 小时， 待机 器 B 
完成 第 一 类 产品 加 工 后 ， 再 送 入 B 机 器 加 工 。 这 样 ， 加 上 第 
二 类 产品 在 机 器 B 上 的 工作 时 间 ，B 机 器 共 花 费 工时 :5( 停 
工 ) +4 (第 一 类 产品 用 时 ) +1 (第 二 类 产品 用 时 ) = 10 小 
时 -。 

若 上 述 生产 顺序 稍 加 改动 ， 即 首先 加 工 第 一 种 产品 ， 然 
后 再 加 工 第 二 类 产品 , 则 也 机 器 所 花 工 时 共有 : 3( 停 工时 间 ) 
十 1 (第 二 类 产品 用 时 ) +4 (停工 时 间 ) + 4( 第 一 类 产品 工 
作 时 间 ) =12 小 时 。 

显然 ， 第 一 种 方案 为 优 。 

如 果 有 6 种 产品 ,经 由 两 部 机 器 顺序 加 工 ， 工 时 如 表 7. 4， 
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你 能 找 出 完成 产品 加 工 总 工时 数 为 最 短 的 方案 吗 ? 
表 7.4 





























这 比较 复杂 一 点 了 ， 但 还 是 可 能 计算 出 来 的 ， 仿 照 上 面 
分 析 方 法 ， 不 难 求 出 总 加 工时 间 为 34 小 时 。 
即 : A 机 加 工 1 号 产品 到 完成 ，B 机 停工 5 小 时 ; 
和 A 机 完成 2 号 产品 ，B 机 加 工 1 号 产品 3 小 时 ; 
和 A 机 加 工 3 号 产品 2 小 时 ，B 机 完成 2 号 产品 又 花 
去 1 小 时 ; 
A 机 加 工 3 号 产品 完成 ，B 机 停工 3 小 时 
人 机 加 工 4 号 产品 2 小 时 ，B 机 完成 3 号 产品 加 工 
任务 ， 用 时 2 小 时 ; 
A 机 完成 4 号 产品 ，B 机 停工 2 小 时 
A 机 完成 5 号 产品 ，B 机 完成 4 号 产品 花 6 小 时 ; 
A 机 完成 6 号 产品 ，B 机 加 工 5 号 产品 3 小 时 
A 机 停机 ，B 机 再 工作 2 小 时 完成 5 号 产品 。 
最 后 B 机 再 工作 6 小 时 ， 完 成 6 号 产品 加 工 任务 ， 最 后 
也 停机 。 
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到 此 为 止 ， 我 们 仅仅 只 分 析 一 种 方案 ， 并 且 不 知道 这 种 
方案 是 否 最 佳 ， 若 改变 加 工 次 序 ， 并 找 出 一 个 最 佳 方案 ， 仅 
用 上 述 方法 逐个 分 析 ， 不 仅 复杂 上 且 费 时 甚 多 。 

如 果 产 品 号 次 增多 ， 或 者 每 种 产品 经 过 的 工序 增加 ， 风 
这 种 判断 ， 有 时 几乎 成 为 不 可 能 。 

为 此 ， 我 们 只 有 求助 于 计算 机 ， 协 助 我 们 做 出 复杂 的 判 
断 了 。 

如 何 确定 上 述 6 种 产品 的 最 佳 加 工序 次 ， 使 得 完成 产品 
加 工 的 总 工时 为 最 短 。 

首先 列 出 数学 表达 式 ; 


9 = si+ Xi 
式 中 : S = 总 工作 时 间 ，gi 为 第 二 项 工作 〈 第 二 道 工序 ) 在 
第 i 个 产品 上 的 作业 时 间 ;， Xi 为 第 二 项 工作 〈 第 二 道 工 序 ) 
在 第 i 个 产品 上 的 停歇 时 间 。 


由 于 2 gi 固 定 不 变 ， 故 欲 使 总 工作 时 间 S 最 短 ， 则 必 


须 使 > ”Xi 为 最 小 值 。 


对 于 这 类 问题 的 排序 ， 要 用 换行 法 求解 ， 步 骤 如 下 ; 

第 一 步 : 将 所 有 产品 作业 时 间 按 一 定 次 序 排列 成 一 个 矩 
阵 表 〈 如 上 表 )。 表 中 元 素 按 加 工 对 象 ， 第 一 项 〈A 机 加 工 ) 
第 二 项 〈B 机 加 王 ) 排列 ; 


291 


第 二 步 ， 在 所 有 元 素 中 选择 一 个 最 小 值 ， 如 有 二 个 以 上 
元 素 的 最 小 值 相 同时 ， 则 任 选 其 一 ; 

第 三 步 ， 如 最 小 值 为 pi ， 则 将 第 i 行 换 置 在 表 的 最 上 一 
行 ， 如 最 小 值 是 gi， 则 将 第 i 行 换 置 在 表 的 最 下 一 行 

第 四 步 ， 对 未 换 过 的 行 的 元 素 ， 再 找 最 小 值 ; 

第 五 步 :重复 第 三 、 四 步 ， 直 至 全 部 元 素 均 换 过 行为 止 。 

最 后 得 到 的 行 的 次 序 如 表 7.5, 这 是 一 个 最 优化 的 序列 ， 


表 7.5 


























不 难 分 析 ， 按 上 述 优 化 作业 次 序 进行 时 ， 其 总 工时 为 27 
小 时 ， 较 之 前 者 〈 非 优化 序列 加 工 顺 序 ) 缩短 工时 6 小 时 。 
现在 ， 我 们 给 出 计算 机 求解 的 框图 , ( 粗 框图 ), 见 图 7. 1: 
为 实现 上 述 设 计 思想 , 在 程序 上 我 们 可 以 分 三 段 来 安排 

第 一 段 : 读 存 作业 顺序 的 矩阵 〈 它 是 非 优化 的 加 工序 列 ) 见 
程序 10 一 70 行 ,I ( 工 ) 为 产品 号 次 ,P ( 工 ) 为 A 机 器 

上 作业 时 间 ，Q (I) 为 B 机 器 上 作业 时 间 ([= 1， 


第 二 段 ， 将 A 机 器 上 作业 时 间 由 短 到 长 排序 〈 即 作业 时 间 最 
少 的 放 在 最 上 面 ， 作 业 时 间 最 多 的 安置 在 最 下 面 )。 
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输入 作业 时 间 
和 矩 阵 表 





在 矩阵 中 找 出 最 小 
元 素 矩 pimin ,gimin 






输出 最 优 序 列 
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注意 矩阵 的 第 1 列 ， 第 3 列 也 跟着 顺序 交换 。 见 程 
序 110 一 200， 打 印 出 结果 是 为 观察 执行 过 程 。 

第 三 段 : 将 B 机 器 上 作业 时 间 由 长 到 短 排序 〈 即 在 B 机 器 上 
费时 最 多 的 排 在 最 上 面 ， 而 费时 较 少 的 则 排 在 最 下 
面 )。 同 样 注 意 短 阵 的 第 1 列 ， 第 2 列 同时 顺序 交 
换 。 见 程序 210 一 420 行 。 最 后 打印 出 来 的 矩阵 表 系 
最 优 作业 序列 。 

程序 ( 见 H81) 及 运行 结果 如 下 : 


JR 
1 Pi oil 
人 
30 4 
人 
1 
本 
人 
UST165 

2 RE 由 | 

5 RE 


8 REH : 证 1 向 
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18 DIM I(6)PP(6)0(6) 

12 60SUB8 499 

二 PINT “Te Pi Qi 
2 F 腿 I=1T06 
38 第 各 II)PGI)Q(GTD) 

35 60SUB 4 的 

各 PRINT 1 ”PT QI)3 
5 NEXT I 

55 60SUB 49 

68 PRINT 

7 只 人 5 人 2 335 274465)6;5)6 
,3)6 

198 REN :119- 于 将 8 机 器 作业 时 间 排序 
1 FRI=1T05 

120 FJ=-I+1T06 

138 IF RD 


1o5 0SUB 480 
1 PRINT “学 (7” 50) 


189 EXT 1 
185 603UB 400 
9 限 JNT LT6)j 6) 06) 
165 0 400 


PRINT 
295 REN :219-428 避 ,将 8 机 器 作业 时 间 排序 
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六 > 
广 > 
< 
-mm 
针 人 中 中 门 CE 所 2 
ZI 


205 6009UB 4 


、288 ENT 了 
285 6009 由 400 
299 PRINT “1 “6 “5P(6)3 ”5Q(6) 


388 60SU 40 


4. 最 佳 配料 方案 


在 冶金 、 化 工 、 医 学 、 农 业 、 畜 牧 等 各 个 部 门 ， 常 常 要 
求 计算 原料 的 配方 ， 以 保证 产品 达到 一 定 的 技术 指标 。 同 时 ， 
为 了 减低 成 本 ， 最 大 限度 地 提高 经 济 效益 ， 更 需要 设计 管理 
人 员 提 供 最 佳 的 配料 方案 。 

过 去 这 方面 的 工作 ， 常 常用 手 算 和 经 验 估 测 ,计算 量 大 ， 
花 时 间 多 ， 且 不 能 保证 节约 原材料 ， 经 济 效益 也 不 是 最 好 。 

下 面 介 绍 一 个 在 冶金 方面 的 实用 程序 实例 ， 浅 谈 一 下 编 
296 


制 最 佳 配 方 的 原理 程序 ， 其 它 各 部 门 不 同 问题 的 使 用 ， 可 以 
以 此 为 模式 ， 不 难 编制 出 适用 不 同 问题 的 配料 程序 。 

某 钢 铁 厂 要 冶炼 10 吨 铸铁 ， 要 求 含 碳 量 3. 2 一 3.3% ， 含 
硅 在 1.9 一 2.0% 。 现 有 三 种 原料 ， 其 成 份 及 价格 如 表 7.6 所 
示 ， 试 编制 一 个 最 佳 配料 方案 的 程序 〈 精 确 到 吨 )。 


表 7.6 
碳 (C )% 硅 (Si) 儿 单价 (元 /t) 
3.8 2.8 








0.6 0.2 








2.6 1.4 


分 析 : . 求 取 最 佳 配 料 方案 ， 实 际 上 是 要 权衡 原料 .成份 、 
价格 三 种 因素 ， 缺 一 不 可 。 三 种 原料 究竟 各 取 多 少 ， 才 能 保 
证 铸铁 的 含 碳 (C ) 量 和 含 硅 〈Si) 量 在 3.2 一 3.3% 及 1.9 一 
2.0% 之 间 ， 同 时 ， 成 本 又 是 最 低 呢 ? 

首先 ， 设 置 三 个 变量 、Y 、2Z ,让 它们 分 别 表 示 生 铁 、 
废钢 、 废 铜 三 种 原料 的 最 佳 配 料 的 数量 〈 精 确 到 吨 )。 

据 题 意 ，X 、Y 、2 应 同时 满足 以 下 四 条 条 件 ， 

@X+Y+2Z=10 (一 共 炼 10 吨 ) 

@) 340X+240Y 二 3802Z = 最 小 值 (成 本 最 低 ) 





轿 3.2? 挟 3.8X 二 0 十 2.42Z <<3.3 


(满足 每 吨 铸 铁 含 碳 量 的 要 求 ) 


图 1.9 芯 2 < 0 


(满足 每 吨 铸铁 含 硅 量 的 要 求 ) 
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其 次 ， 确 定 三 种 原料 的 取 值 范围 。 由 于 题目 要 求 精 确 到 
吨 ， 显 然  X、Y 、2Z 的 取 值 范围 都 是 1 到 10 之 间 ， 在 程序 
上 可 以 用 循环 的 方法 来 逐步 投 试 ， 循 环 变量 就 取 X 、Y 和 2 ， 
它们 的 初 值 和 终 值 各 自 为 1 到 10。 

最 后 ， 谈 一 下 循环 体 的 安排 。 

三 种 原料 X 、Y 、Z 必须 同时 满足 前 述 四 个 条 件 时 , 才 是 本 
题 的 解 。 反 之 均 不 是 ， 故 可 以 用 条 件 语 名 (IFVTHEN ) 
来 判断 ， 把 它们 都 写 在 循环 体 中 。 

至 于 成 本 的 最 小 值 问 题 ， 可 以 这 样 来 安排 ， 在 循环 外 ， 
设置 一 个 初 值 A， 如 A =380x 10, 显然 , 这 是 一 个 极端 情况 ， 
即 取 成 本 最 高 价 的 废 铜 ， 它 应 为 3800 元 。 

令 最 小 值 为 B , 即 340X + 240Y +3802Z = 了 B ,如果 B 之 A 
则 不 要 〈 即 循环 再 找 另 外 的 X、Y 、2Z 值 ), 反 之 , 则 令 A =B 
(此 时 A 为 最 小 值 ， 即 交换 ) 。 

所 以 程序 中 A 、B 分 别 表 示 前 序 方 案 和 当前 方案 的 配料 
总 值 〈 即 成 本 数 ), 而 XI 、YI、Z I 为 最 佳 配 料 方案 时 的 X 、 
Y、2 值 ， 因 此 ， 在 全 部 三 重 循环 究 毕 ， 应 安排 打印 XI 、 
YI、ZI 及 A 的 值 ， 则 XIL、YI、Z1I 的 值 即 为 最 佳 配料 原 
料 的 吨 数 ， 而 A 值 则 为 最 低 成 本 数 ， 此 时 配方 最 佳 ， 经 济 效 
益 最 高 。 

故 有 程序 也 82 : 


首 IST 


5 REN 拓 2 
1 和 = 388* 二 
28 F 限 闪 = 二 T 地 
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各 F 腿 YY= 工 贡 志 
物 F 腿 217 押 
9 J8+Yt+Zz( > 地 THEN 14 


0 下 38FyX+g6yyY+24k77 0》 
3 [EN 1 

阴 下 人 8 本 关 二 6 站 2.4* 和 7 提 《 
3.2 THEN 14 

般 下 (人 23 站 其 +9.2 半 + 4 本 7 二》 
2 [HEN 1 哲 

验 F (2 和光 基 十 昌 2 村 的 
.9 THEN 1 

般 B=3969X+2089Y+388 6 了 

] 折 正如、 站 THEN 1 

126n = 有 

138 8 = YY 


168 NEXT 

1 RNT ”2 
188 INT 作 肖 

] 和 9 EN 


程序 的 正确 性 ， 我 们 可 以 用 手 算 来 验证 : 
生铁 X = 7 吨 ， 总 价 为 : 7 尖 340=2380 元 。 
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废钢 Y = 1 吨 ， 总 价 为 : 1 关 240=240 元 。 
废 铜 Z = 2 吨 ， 总 价 为 : 2 兴 380=760 元 。 
故 总 成 本 为 2380+ 240 二 760=3380 元 。 
原料 按 上 述 取 值 后 ， 含 碳 量 、 含 硅 量 是 否 达到 指标 要 求 
呢 ? 
含 碳 量 : (7 兴 3.8+ 1 关 0.6+ 2 兴 2.4)/10 
=(26.6+0.6+4.8)/10 


=32.0/10 
=3.2 (符合 要 求 ) 
同 理 ， 含 硅 量 : (7 兴 2.3+1X 兴 0.2 二 2 兴 1.4)/10=1.91 


(符合 要 求 ) 

总 之 ， 利 用 上 述 程序 ， 我 们 可 以 得 到 最 佳 配 料 方案 。 

现在 ， 我 们 来 研究 一 下 ， 配 料 方案 是 最 佳 的 ， 程 序 是 否 
也 是 最 好 的 呢 ? 显然 不 是 。 

第 一 ， 程 序 H 82 是 计算 铸铁 10 吨 产量 的 ， 若 要 计算 不 同 
产量 时 ， 必 须 修 改 程序 。 为 不 失 一 般 性 ， 可 改 用 程序 H83。 
这 样 做 有 二 个 好 处 :可 以 求 不 同 产量 〈 仍 以 精确 到 吨 计算 )》; 
程序 中 用 变量 N 来 代替 常量 10 (或 不 同 产量 时 的 其 它 常数 值 )， 
既 可 节省 内 存 , 又 可 加 快 程序 的 执行 速度 (程序 H83 中 共有 九 
次 要 用 常量 N = 10 ) 。 

第 二 ， 修 改 后 的 程序 H83， 仍 有 一 个 明显 的 缺点 ， 运 行 
速度 慢 ， 考 察 其 原因 有 二 点 : 

循环 中 判断 语句 多 ， 加 上 许多 小 数 比 较 ， 速 度 比较 慢 ; 

循环 终 值 愈 大 ， 循 环 次 数 愈 多， 速度 也 愈 慢 。 

N =10 吨 时 ，P C -1500 机 运行 时 间 为 50 秒 ，N =20 吨 
时 ， 执 行 时 间 为 6 分 10 秘 。 
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为 此 ， 我 们 设法 减少 一 重 循环 ， 因 为 ， 

X+Y+Z =N 

DZ =N 一 X 一 YY 

考虑 到 负 值 无 意义 ， 故 取 Z =ABSI(N 一 X-Y)。 

原 程 序 中 的 40 句 ,FOR Z =1TO 10 用 Z =ABS(N-- 
X-Y) 代 替 ， 删 去 140 句 NEXT 2Z ， 同 时 各 条 件 判 断 语 
名 THEN 后 面 的 行 号 均 改 为 180， 则 运行 速度 大 大 提高 。 
N =10 吨 时 ， 程 序 运 行 时 间 为 16 秒 ; N =20 吨 时 ， 速 度 为 57 
秒 。 程 序 及 运行 结果 附 后 〈 见 H84)。 

第 三 ， 为 了 进一步 提高 程序 运行 速度 ， 二 个 循环 的 终 值 
还 可 以 进一步 改动 。 

例如 : .N =10 时 ，20、30 句 的 循环 终 值 N 换 成 8 ， 因 为 
X+Y+2Z=10， 每 种 原料 至 少 取 1 吨 时 (如 X=1,Y =1)， 
则 另 一 种 原料 最 多 取 8 吨 (如 Z = 8 ), 这 样 ， 程 序 运行 时 间 
又 减少 4 秒 。 

同 理 ，N =20 时 ，20、30 句 的 循环 终 值 N 换 成 18， 则 
N =20 时 ， 运 行 时 间 为 52 秒 。 

第 四 ， 为 了 进一步 减少 内 存 ， 同 时 又 有 比较 高 的 执行 速 
度 ， 请 用 程序 H85。 


]LIST 

? KEN 3 

8 JPUT 人 E 测 : 限 INT ?FF 放 
96=389*N 

2 F 腿 X=1T0N 
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四 IF (3.8*X+0.6 本 Y+2.4#Z) AN《3 
.2 THEN 148 

8 引 IF(2.3*Xtb2FyryY+14*z) AN》2 
THEN 148 

9 IF(23*rxXtb2ryYt+14*2z7N(1l 
.0 THEN 14 

1808 = 346*Xt+24005Y+386*7 

1 TIF (BA THEN 19 

1206=B 

136 XML = XYL=Y2Z1=7Z 

1 和 9 NEXT 2 

150 NEXTY 

106 NEXT X 

1]78 PRINT “YX= “人 ”YY= 1 ”2= ”521 
188 PRINT “和 =” 治 

19% END 


]RUWN 

信 1 

10 

X=f Y=| Z=2 
作 3388 


]RUN 


修 20 

20 

X=10 3 2=| 
人 0548 


jHST 

5 REN H4 
8 INPUT YE PRINT AN 训 
舞 利 = 388 


2 [外头 = TAN 

3 F 艰 Y=1TON 

四 2Z= 船 人 N- 关 -中 

598 下 %tY+Zze >NTHEN 150 


6 IF (38*yX+Q6yyt24yZAN>3 
.3 THEN 158 

了 IF (3.8*X+86yky+248kz7NC3 
,2 THEN 158 

8 IF (2.3kX+82kY+1ykz7N>2 
THEN 158 

驻 下 (23*kX+g2kyY+1yrzrN li 
.9 THEN 150 
1008=38#X+2086 了 +388 这 

1 IF > 人 THEN 198 

1208=R 

138 NAY YE 2 

]58 人 ENTY 

168 NEAT 

178 了 RINT = 入” = 人 ”2 
188 PRINT 用” 让 

198 END 
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耻 册 N 

N=10 

N=10 

X=7 人 1 2=2 
作 3380 


]RUN 
NE=20 
20 
)=10 Y=3 2Z=1 
人 0548 
jHST 
4 
8 INPUT 信任 吊 PRINT 人” “ 注 
过 让 = 388 
2 如 FIRX=1TTON 
36 FIRY=THN 
曲 7Z= 般 3N-X- 史 
5 TIFXA+Y+2C NTHEN 196 
60K = 385Xt6yyYt24yz7N 
了 了 = (2.3 冰 着 人 2 AN 
玉 下 >3.3THEN 158 
8 于 < 3.2 THEN 158 
骆 开工 2THNI158 
9 下 IC19THEN 158 
108R = 338* 关 + 2409Y+388 7 
1 正明 > 和 THEN 188 
12808 = 
304 


138 =XYL=Y2= 7 

1948 NENTY 

108 人 基 

1 PINT ”YY 
1 把 民 INT 人 让 

] 的 EM 


]RUN 
凡人 放 10,8 

凡 作 1 8 
X=7 122 
全 3388 


]RUN 
小 放 20， 从 
收 放 20 从 
X=10 Y=3 Z=| 
人 89549 


5 网 络 图 时 间 参 数 计算 程序 


网 络 计划 技术 是 50 年 代 后 期 发 展 起 来 的 一 种 计划 管理 方 
法 。 它 是 以 网 络 图 的 形式 制定 计划 ， 求 得 计划 的 最 优 方案 ， 
并 据 以 组 织 和 控制 生产 , 达到 预定 目标 的 一 种 科学 管理 方法 。 
在 工厂 的 新 产品 试制 工作 中 或 是 各 种 设备 的 安装 、 改 造 和 维 
修 计 划 中 以 及 各 种 基本 建设 计划 中 有 较 广 泛 的 应 用 。 
在 绘制 网 络 图 的 过 程 中 ， 需 要 计算 各 工序 的 时 间 参 数 ， 
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确定 关键 工作 和 关键 路 线 ， 利 用 时 差 ， 改 善 计 划 , 求 得 工期 
资源 与 成 本 的 最 优 方案 。 
本 程序 为 网 络 时间 参 数 的 计算 , 计算 方法 采用 表 算 法 原理 。 
程序 中 : 
10 一 35 为 中 文 提 示 
40 一 85 为 输入 各 项 参数 ;数组 S (M ) 
夯 放 最 早 开工 时 间 参 数 ; (M ) 为 
存放 最 早 完工 时 间 参 数 ; L (M ) 为 
存放 最 迟 开工 时 间 参 数 ，F (M ) 为 
存放 最 迟 完工 时 间 参 数 。 
参数 输入 中 如 有 错误 ， 第 80 句 提供 修改 机 会 。 
90 一 110 ， 调用 195 一 210 子 程序 计算 最 早 开工 时 间 参 数 


和 最 早 完工 时 间 参 数 。 
115 一 135 调用 215 一 230 子 程序 计算 最 迟 开 工时 间 参 
数 和 最 迟 完 工时 间 人 参数。 


140 一 160 打印 表 头 。 

165 一 190 ”打印 时 间 参 数 。 

195 关 打 印 机 ， 结 束 。 

运行 时 ， 按 中 文 提 示 输 入 数据 〈 对 虚 作 业 其 工序 作业 时 
间 为 0 )。 如 输入 有 错误 可 键入 “02, 计 算 机 问 : “需要 修改 哪 一 
工序 ?” ,键入 要 修改 的 工序 号 进行 修改 。 修 改 完毕 ， 再 键入 
“02, 然 后 键入 需要 继续 输入 的 工序 号 ， 继 续 往 下 进行 。 全 部 
数据 输入 完毕 后 即 可 自动 打印 出 运算 结果 。 

程序 清单 〈 见 H86) 和 运行 实例 。 

运行 实例 ， 

筹建 某 产品 的 生产 线 工 程 ， 其 作业 明细 表 如 表 7.7。 
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作 业 名 称 时 间 (d ) 


进 
补 
这 
长 





I 
2 
3 
4 
5 
6 
的 
8 





市 场 调 查 
产品 研制 
资金 筹备 
工程 项 目 分 析 
产品 设计 
厂房 基建 
成 本 计划 
人 员 筹 备 
生产 计划 
设备 计划 
器 材 筹 备 
人 员 安 排 
学 习 工 艺 
设备 布置 
调试 生产 











之 可 工 和 一 工 上 OODO>>>>> 剂 山 





四 也 芝 吕 天 一 一 工人 可 癌 口 记 机 > 


REH H86 
PRINT “本 程序 可 计算 网 络 图 时 间 参 炎 程序 中 


限 INT ”一 网 络 图 工序 散 T 一 工序 箭 尾 号 " 
限 INT ”T 一 工序 作业 时 间 “J 一 筑 头 结 点 号 ” 
PRINT 抑 S 一 最 时 开工 时 间 EF 一 承 时 完工 时 间 


PINT “LS 一 最 迟 开工 时 间 LF 一 最 迟 完工 时 间 


了 INT ”R 一 总 时 差 打 一 关键 路 线 " 
INPUT “请 输入 工序 数 :” 训 

DT 入 ( 作 3》，S( 作 》，EC 皇 》，L( 风 》7F(I)R( 导 ) 
F 限 P= 1T0H 

PRINT “工序 代号 :";p 

INPUT “请 输入 工序 箭 尼 号 :”;A(P; ]) 
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65 IF AP,1) = 8THEN INPUT "需要 修改 娜 一 
工序 ?"p: 60T0 55 

7 INPUT“ 请 输入 苗头 结 点 号 :”; 人 WP,2) 

5 INPU -和 了 WP 

8 FpP=HTHEN 了 IMT 所 (YWN)? 
:6ET 护 : PRINT 史 : IF 时 = YY” THEN 5 
85 NEXMTP 


明 F 腿 I=1 人 六 

第 下 入 D=1THENSG = 6:ETI) = 入 3 
:6f0 1 志 

一 正太 了 1 1 THEN 60S 肌 195 

名 ED = 和 小 + 和 31 


1 全 F 人 I=iTfli9STEP -1 
各 下 I=NHTHNRFRI =EG 
5 IFIc iTHENFGD = 
LT) = FRI) - 商 D3):RI) 
1 NE 了 
1 和 POKE 1659,5 
1 
1 


ED = 人) 
FI 人 :60SUB 215 
= [LTD) - S]) 
佣 限 JNT TAB( 23 六 网 络 图 时 间 表 ” 

0 阳 朵 “一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 


 TT R gb 
pf PUKE 1059 1 
168 PRINT“ 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 


165 FIRI= 1 六 
18 PRINT 部 (15 TAB 


也 了 夫 关 一 认 
(2 TREND35 TB 22 


和 
2 人 


人 秀 ( 34) TFI) TB 


全 6 THEN PRINT TAR 18)5TD1 
一 小)2 


8 惧 JN 


2 所 
2 
220 


全 AT 了 


了 IN 一 一 一 一 -一 -一 一 -一 -一 


RETIR 


FF 中 J= 半 TI-13TEP -1 
下 入 了 = 太 D2)》 AND LTD) 《FI THEN 


F(D) = [JJ) 


209 
230 


人 X 
RETURN 
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0 证 
入 必 R 攻 上 吹 
簿 : S 让- 让 放大 二 二 让 让 让 : 昔 > 此 :z 考 : 半 直 :相让 SS 让 :了 让- 一 这- 
FiolrH 二 站 0 和 福 Hop 二 往 HbH 敌 Fo 二 1 了 op 上 二 HorH 短 ForH 
-Sr 和 -人手 天 有 - 拓 到 到 和 有 有 天 二 二 


生丝: 其 反 如此: 探 探 岳 直 岳 巡 本 此 镜 如 刀 如 哥 焕 引 如 哥哥 由 可 岳 本 世 :如 
钙 上 和 乓 国语 定 本 生 和 汪 门生 本 计生 和 丁丁 上 丫 证 钙 十 和 到 昌 FH 王 
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3。 六 SR SS T_ cn 9 Cm cm Cn 
二 一 一生 一 一 盏 一 下 一 一 一 王 二 -一 2 王 二 
bgP 吉 ”Dior 二 bnom 直 Unrom 直 bropr 吉 uror 二 oo 二 Dim 
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表 7.8 网 络 图 时 间 表 








1 
2 
4 
5 
6 
7 
8 
9 
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八 情报 检索 


下 面 即将 写 出 的 程序 清单 ， 是 一 个 具有 多 种 用 途 和 多 种 
功能 的 检索 程序 。 

所 谓 多 种 用 途 是 指 程序 中 除数 据 区 外 ,主要 程序 段 (20 一 
160) 是 一 个 多 用 途 的 子 程序 。 它 可 以 查找 图 书目 录 、 文 献 资 
料 、 库 存 物资 、 工 资 报表 、 人 事 档 案 、 公 安 口 卡 .病历 登记 、 
统计 报表 等 等 。 凡 是 涉及 到 社会 生产 、 生 活 的 各 个 方面 ， 诸 
如 生产 管理 科研 、 教 学 、 工 程 技术 、 等 各 个 领域 ， 凡 是 需要 
情报 资料 检索 的 地 方 ， 都 可 以 以 本 程序 为 模式 ， 适 当 改 动 部 
份 语句 和 数据 区 ， 即 可 付 诸 实用 。 

所 谓 多 种 功能 ， 是 指 程序 查找 方法 多 种 多 样 ， 查 找 手段 
灵活 方便 ， 使 用 者 只 要 稍 事 熟悉 ， 即 能 运用 自如 。 

本 程序 的 最 大 特点 ， 是 程序 简短 、 易 懂 、 通 用 、 灵 活 。 

现在 ， 我 们 以 人 事 档案 的 管理 和 应 用 为 例 ， 说 明 本 程序 
的 编制 方法 。 

现 列 出 主要 程序 段 ， 见 H 87 : 


US 
扣 REI HB 
乱 DJ 加 雪 ) 
芒 F 茹 ]=1 人 所 
四 和 和 的 了 
御 笋 NT 秀 () 
50 E 呆 了 
史 限 INT 
313 


2 PRINT 


55 INPUT 于 

5 IF 融 = ”THEN 160 
NB 

pb F 中 JJ=1T018 
PN=N+1i 


外 FRI=1T0 LEN (各 人 =- LEN 于 ) + 
] 

驳 开 融 人 》 休 吕 (各 (5 LEN 《于 ))》 THE 
N 128 


] 抑 PRINT 融 No “ 滑 
1 PRINT “58 人》 
]20 RENT I 


对 隆 程 序 H87 的 编制 要 点 ， 有 以 下 几 点 说 明 : 

(1) A 书 (10): 字 符 串 数组 ， 存 贮 职工 档案 信息 ， 本 程 
序 以 10 人 为 例 ， 所 以 用 A $ 〈10), 若 职工 人 数 为 200 人 , 则 用 
A$ (200), 若 超过 255 人 ， 可 用 A 下 ,(255)、B$(100) 等 。 

(2) 30 一 50 行 ， 是 一 个 循环 ， 循 环 变量 为 ] ,循环 次 数 为 
10， 若 人 数 为 200 人 ， 则 终 值 只 要 改 成 200 即 可 。 本 程序 段 
的 功能 是 读 存 职工 档案 信息 ， 并 打印 全 体 职工 的 信息 。 

(3) INPUT  B$ ,是 输入 查找 的 关键 字 。B 和 的 输 
入 十 分 灵活 .例如 输入 职工 序号 B5; 输 入 职工 的 姓 或 名 或 姓名 ， 
全 体 或 姓名 中 部 份 字符 ， 输 入 性 别 W 或 M;， 输入 年 龄 、 文 化 
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程度 、 政 治 面 狐 、 健 康 状 况 等 等 。 

(4) 57 行 是 查找 结束 标志 。58 和 70 句 ， 指 明 查 找 某 人 信 
息 在 存 贮 数据 区 中 的 位 置 。 

(5) 60 一 130 句 中 外 循环 〈 用 循环 变量 J), 目的 是 扫描 整 
个 数据 区 。80 一 120 句 是 内 循环 , 其 作用 是 取出 每 个 职工 档案 
的 全 部 信息 ， 与 关键 字 B $ 比较 ， 有 则 打印 结果 , 否则 再 找 。 
全 部 循环 完毕 〈 包 括 I、J 两 重 循环 ), 找 不 到 关键 字 的 信息 ， 
则 以 一 一 一 一 为 标志 。 

(6) 150 句 GOT O55, 是 为 了 再 找 另 一 个 关键 字 B 和 ， 
若 停止 查询 ， 则 敲 入 字符 “提交 停机 。 

(7) 请 注意 80 句 循环 终 值 的 写法 和 技巧 ， 主 要 目的 是 提 
高 比较 速度 ， 缩 短 查找 时 间 。 

关于 职工 档案 信息 编制 方法 如 下 (程序 见 H88 ): 

(1) 每 个 职工 档案 共有 10 项 (实用 单位 可 根据 具体 情况 ， 
自 定 项 数 ), 每 项 之 间 均 以 一 个 空格 分 隔 , 它们 都 存 贮 在 D A 个 A 
区 中 ， 其 存 贮 格式 : 

280 DATA “B9 ABA M L-40G-12H-2 

Z-23KO6P-DT-2y” 

这 里 是 采用 的 字符 串 形式 存 贮 ,各 项 之 间 不 用 逗号 分 隔 ， 
仅 以 空格 分 隔 〈 当 然 也 可 以 不 用 空格 而 作为 一 个 连续 的 字符 
串 形 式 存 贮 )。 

(2) 检索 代码 ; 

序号 一 一 B， 如 B 9 代表 查找 编号 为 9 的 人 。 

姓 名 一 一 按 实际 人 员 姓 名 填写 ， 可 以 是 汉语 拼音 ， 也 可 
以 用 英语 标明 。 本 程序 中 为 简化 姓名 ， 仅 用 三 个 英文 字母 代 
替 ， 如 查找 一 个 叫 A B A 的 人 ， 只 要 键入 ABAvw 即 可 。 
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性 别 一 一 以 W 代 表 男 性 ，M 代 表 女 性 ， 查 找 时 ， 若 输入 
” 。 则 可 检索 打印 出 全 部 男 同 志 的 档案 信息 。 
年 龄 

















\ 回 ， 口 
1.2.3、4.5.6 分 别 代表 大 学 、 大 专 、 中 专 、 高 中 毕业 、 高 中 
程度 、 初 中 以 下 等 6 种 情况 。 如 键入 也 一 2, 代 表 查找 本 单位 
所 有 具有 大 专程 度 的 人 的 档案 信息 。 

行政 级 别 一 一 z， 如 6 级 ， 为 z 一 06 ，23 级 为 z 一 23 ， 无 级 
别 可 填 ， 则 为 z 一 99 。 

技术 职称 一 一 区 ， 这 也 可 以 根据 使 用 单位 实际 情况 ， 人 
为 定义 ， 如 教授 为 K01， 研 究 员 K 02， 高 工人 03 、 副 教授 
K04， 副 研 K05 、 讲 师 K 06 、 助 研 K 07 、 工 程 师 K 08 、 助 教 

09 、 助 工 K 10…… ， 技 师 K13 ， 无 职称 可 填 K 99 。 

政治 面 狐 一 一 !L， 如 党 员 为 P 一 D ， 团 员 为 P 一 工 ， 预 备 
党 员 为 PE 一 Y， 和 群众 为 P 一 Q。 

健康 状 ; 、 一 般 、 较 差分 别 填 T 一 1 、T 
3 

总 之 ， 干 部 档案 管理 程序 ， 必 有 需 事先 编制 一 个 详细 的 代 
号 明显 表 ， 规 定编 号 的 定义 及 使 用 编号 的 注意 事项 。 

数据 区 中 档案 的 信息 ， 必 须 按 规则 填写 ， 例 如 上 面 提 及 
的 ， 每 项 之 间 以 一 个 空格 为 分 隔 。 

(3) 本 程序 10 个 人 的 档案 资料 : 
RN 
让 四 二 了 避 22 -60 P- 











316 


1 
om 


Kx 
cn 
Zr 
Fe3 
< 
< -< 天- 王 r -到 
1 
Fo wo No -cc 


程序 再 88 查 找 方法 及 实例 : 

(1) 按 序号 查找 : 

如 查找 编号 为 5 的 人 的 档案 ， 则 融 入 B 5 以 

结果 为 ; 

B5 NO: 5 

关 B5RHI M L-27G-10H-3 Z-23K 民 -99P -人 
下 -1 关 

即 该 同志 编号 为 5， 存 贮 在 数据 区 的 第 5 个 位 置 ， 他 叫 

RHTL, 女 同志 ，27 岁 ， 工 龄 12 年 ， 中 专文 化 程度 ,行政 23 级 ， 
无 技术 职称 ， 共 青 团 员 ， 身 体 健 康 。 

(2) 按 姓名 查找 : 

如 查找 一 个 叫 下 Q R 的 人 ， 键 入 EQRYVY 

结果 为 : 

EQR NO: 8 

关 B8EQR M L-55G-30H-3Z-15K-99P-DT-3 关 

若 查找 名 叫 AB A 的 人 ,键入 ABAL 

结果 为 ， 

ABA NO: 1 

关 BlL ABA WL-40G=-13H-22Z-22K-06P-D 
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下 -2 共 

ABA NO: 9 

关 B9ABA ML-40 G-12 H-2 Z-23 K-06P-D 
工 -2 关 

因为 本 程序 中 共 10 个 人 ，A BA 同名 同姓 的 人 有 两 个 ， 
故 有 以 上 结果 。 

注意 ， 由 于 程序 H88 查 找 方式 多 样 ， 所 以 在 按 姓名 查找 
时 ， 可 以 输入 以 下 情况 中 的 任 一 种 ， 都 可 查 出 : 

输入 全 名 〈 姓 和 名 ); 

输入 姓 ; 

输入 名 字 ; 

输入 姓名 中 相 邻 的 某 几 个 特征 字符 〈 见 下 例 )。 

(3) 按 名 中 相 邻 的 某 几 个 特征 字符 : 

如 键入 IQVY 

运行 结果 是 : 

IQ NO: 3 

关 B3QIQ WL-64 G-36 H-3 Z-14 K-13 P-T 
下 -3 关 

IQ NO: 10 

关 Bl0 QIQ WwWL-64G-36 H-3 Z-14K-12 P-T 
下 -3 关 

这 两 个 人 的 情况 ， 几 乎 一 样 ， 唯 一 区 别 是 在 技术 职称 上 
不 同 ， 前 者 为 K-13 是 技师 ， 后 者 为 K-12， 为 技术 员 〈 如 
果 原 来 定义 K-12 为 技术 员 的 话 )。 

(4) 按 性 别 查找 

如 键入 Ww ， 这 是 查 出 所 有 男 同 志 的 档案 ， 程 序 H88 共 
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有 4 人， 序号 为 1,3,6,10。 

如 键入 MY ， 则 查找 打印 出 全 部 女 职工 的 信息 。 

(5) 按 政 治 面貌 查找 ， 

如 键入 P 一 Y w ,是 查 预备 党 员 的 人 事情 况 的 ,程序 H88 
中 仅 有 二 人 ， 编 号 为 2,7 。 

(6) 符合 多 个 条 件 的 查找 : 

如 查找 无 技术 职称 的 党 员 ， 键 入 K-99P-D 

程序 H88 只 有 一 人 ， 结 果 如 下 : 

K-99P-D NO: 8 

XD8EQR ML-55 G-30 H-3 Z-15 K-99 P-m 
T-3 关 

这 里 请 特别 注意 一 下 ， 程 序 H88 在 查找 同时 满足 两 个 或 
两 个 以 上 条 件 时 ， 必 须 是 相 邻 的 两 个 或 两 个 以 上 的 项 ， 否 则 
是 找 不 到 的 。 

所 谓 相 邻 的 项 ,在 上 面 的 例子 中 人 -99 P 一 D 是 相 邻 的 项 ， 
而 上 -55 和 H- 3 就 不 是 相 邻 的 项 ,前 者 可 以 查找 出 来 ， 而 后 者 
则 不 行 。 查 找 不 到 的 以 “一 一 一 一 …… 一 一 ”为 标志 。 

又 如 查找 男 同志 年 龄 为 37 岁 ， 工 龄 为 16 年 ， 大 学 文化 程 
度 ， 这 四 个 同时 必须 满足 的 条 件 时 ， 则 有 可 能 查找 出 ， 因 为 
性 别 、 年 龄 、 工 龄 、 文 化 程度 四 项 是 相连 在 一 起 的 〈 若 数据 
区 中 有 满足 上 述 四 个 条 件 的 人 ， 则 一 定 能 查 出 )。 

如 送 入 W L-37 G-16 H-1w 则 打印 以 下 信息 ; 

WL-37 G-16 H-l1 NO: 6 

关 B6 RRC WL-37 G-l6 H-l1 Z-20 K09 P-D 
下 -1 关 

(7) 按 文化 程度 查找 ， 
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如 查找 所 有 大 专文 化 程度 的 人 ， 则 键入 H-2v 即 可 。 

运行 结果 有 3 人 。 

程序 的 查找 实例 远 不 止 上 述 几 种 ， 仅 举 数 例 ,可 见 一 般 。 
总 之 ， 程 序 H 88 查 找 的 灵活 性 是 很 大 的 ， 使 用 时 也 是 非常 方 
便 的 ， 读 者 可 以 用 多 种 方式 运行 程序 ,从 中 体会 程序 的 通用 、 
灵活 、 方 便 、 易 懂 的 特点 。 

现在 ， 我 们 来 谈 一 下 找 同 时 满足 几 个 条 件 ， 而 各 项 又 不 
是 紧 连 在 一 起 的 检索 问题 。 

方法 是 在 上 面 介 绍 的 程序 H88 基 础 上 加 改 如 下 语句 : 

52 INPUT“X= 男 X 

53 ON X GOSUB 55，300,170 

54 GOTO 52 

160 RETURN 

70 END 

RONvw 后 ， 程 序 45 句 ， 打 印 全 部 职工 档案 信息 。 

然后 转 至 52 句 ， 若 此 时 输入 1, 执行 55 句 ， 同 程序 H88 运 
行 方法 。 

若 输入 3, 则 程序 转向 170 句 结束 。 

而 当 输 入 X= 2 时 , 则 转向 300 句 开始 的 一 段子 程序 , 即 ; 

300 INPUT “L= 汪 $,“H= 沪 本 蔬 ,K= 力 Kg$ 

305 FOR K=1 TO 10 

310 IF L$4=MID 和 $ (Ad$(K).10,4)AND 

H$=MID$ (A$CK).20,3)AND 
K$=MID 和 $(A$CK).29,3)THEN LPPI 
NT Ad$CK) 
315 NEXT 开 
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317 PRINT “二 兴 十 兴 十 兴 十 关 十 闪 十 闪 十 关 十 关 
十 关 ? 

320 RETURN 

从 300 句 到 320 句 ， 是 为 查找 同时 满足 年 龄 、 文 化 程度 、 
技术 职称 这 三 个 条 件 而 设置 的 ， 读 者 不 难 分 析 它 的 原理 。 

实例 如 下 ， 

若 顺序 键入 :L-64 愉 ,H-3y ,K13J , 则 有 以 下 结果 : 

B3 QIQ W L-6i4 G-36 H-3 Z-14 K13P-TT-3 

若 顺 序 键入 ，L-44w ,H-l1v ,K058/ ， 则 有 : 

B4 PPIML-44G-l6 H-l Z-19 K08 P-Q 
下 =3 。 

下 面 给 出 程序 H88 清 单 和 部 份 运行 结果 : 

]UST 


REN HH 

2 REM 情报 检索 程序 2 

3 你 时 和 外 CHING PRDGRR 
抱 608S 5 的 

5 了 疏 JNT 

妈 IN 各 (全 

如 ff 限 J 了 = 用 增 

斩 R 抒 名 人 本) 

9 限 INT 前 () 

虽 屁 呆 了 


53 了 RJNT 
05 JNPUT 咒 
5 下 中 = ”THEN 168 
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322 


2 

所 F[ 藤 J= 了 人 包 

痢 N=N+1 

F 银 1I= 1T0 LEN 的) -ENA 球 ) + 


0 下 球 5 》 诅咒 《 抑 )T LEN ER THE 
N 128 

] 全 了 恨 了 于 办 1 关 “让 

1 阳 TNT 部 

128 KEAT 了 


jp4 的 TU 99 
1o6 上 部 


2 艇 的 各 让 直 上 -9 0- 多 H-2 2-22 下 -的 
P-T T-2” 

2 培 玖 [ 交 ”82 SSJ 放 197 6-21 H-1 2-20 丰 -02 
P-Yy T- 人 

228 人防 作 “3 人 和 由 L-64 6-36 H-3 2- 考 人 - 全 
P-T T-3” 
230 确 六 ”84 PP NL-g 6- 扩 HE 2 的 
P-Q T-3” 

2 遇 听 衣 “8B5 RHI 放 L-27 b-19 H-3 2-23 -99 
pP-TT- 全 

298 听信 “8B6 RE -37 -和 H-1 2-28 丰 -的 
P-D T- 记 

268 了 跑 [有 "了 STJ 放 L- 和 9 6-28 H-2 2 -全 
PT- 和 

278 NTR "BE 名 时 1-55 6- 和 0 32-99 


F- 了 于 -4 

2 的 ， 本 RE- 昌 D12H-2 27223K- 的 
P-D T-2” 

290 阴 人 六 吕 提 的 @ 旺 上 -64 6-36 H-3 2- 志 K- 志 
P-T T-3 

508 限 INT “本 程序 有 下 列 检索 方法 ” 

5 者 PRINT “1. 按 序号 

528 了 RRINT” 

238 耻 INT” 
548 PRINT ” 
808 PRINT ” 
568 PINT 
876 PRINT 
5 PRINT 
8348 RETIRN 


1 


2 扣 IIhr.Hazmt 
3 

1 记 

> 才 - 


-THT-EHt- 生 | 荐 tt 一 
在 汪汪 -2 


Cr 7 .上 os Fn2 一 ~ 
直人 


[1 
一 > 二 和 二 上 诗 际 HH 


[中 +lat la#t 


泪 


cc 一 4 


8 -各 站 2 2 下 -的 
了 2 33 让 2 他 
了 玲 站 和 让 -64 06-R H-2 二- 后 P 
阳 PPT 村 人 -有 -的 -办 
RS RHIT HL -党 H-3 23- 的 


到 了 RC WEL-3P -tp HL 220K- 的 P-TT-1 

BF 9 和 上 -有 9 6-28 H-2 2 地 下- 从 P-Y T-2 

陪 上 眼 首 L -95 站 -各 站 3 2 后 K-99 P-T T-; 

ee 
了 [- 的 -30 3 2- 二 KK-12pP-TT-? 

4 

卫 人 : 8 

相 F9 RHI 计 L-27 0- 押 时 32-23 大 -99 P-T T- 记 

针眼 

FE 妇 No: 8 

8 FE 名 计 L-58S 0- 和 9 HH-3 2 全 天 -的 P-D T-3# 

区 汪 

RN No: 1 

村 二 上- 斩 6- 欠 HH-2 2Z-22K- 的 P-) 下 -条 

名 No: 9 

人 

?1 

IQ NO: 3? 

相 3 QTQ -64 6-36 H-3 2 二 K- 雪 P-TT- 站 
IQ No: 哲 

相 18 QTQ 和 1L-64 6-36 H-3 2Z- 手 kk-12 P-T T- 衬 

州 

让 Na: 


| 
李 1 和 有 直上 -4 6-13 H-2 2-22-8 PT 和 
昌 No: 3 
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加 3 QIQ 由 -64 6-36 H-3 2- 手 K- 夫 PT -3 
由 No: 0 


站 BO RR 世 L-37 6- 扣 H-1 2-20K- 的 PDT- 坟 
由 No: 1 
椰 反 QTQ 由 L-64 6-36 H-3 2- 考 K-12 PT T- 六 


耕 2 39J 人 1L-47 0-21 H-1 2-28 K-82 P-Y T- 雯 
P-Y NO: 了 
礁 f STJ 人 L-49 6-28 H-2 2 区 k-13 P-Y -2 


名 1-37 0- 
UL-37 0- :0 
B0 RRC 有 1L-37 6-16 -1 2-20 -99 P-D T- 坟 


上 2 :1 
椰 1 hB 有 1L-46 6-13 H-2 2Z-22 k-60 P- T-2 
H-2 NO: 7 
椰 ? STJ 必 L-49 6-28 H-2 2Z-16k-13 P-Y T-2# 
H-2 0: 9 
可 9 人 BR 放 L-48 6-12 H-2 Z-23 K-60 P-D T-2# 


:2 
椰 2 SSJ 必 L-47 6-21 H-1 2-20 K-82 P-Y T- 坟 
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叶 :1 

椰 4 PPI 时 L-44 6-10 H-1 2-19 K- 的 P-G T-3# 

放 NO; 5 

#B5 RHI 半 L-27 6-10 H-3 Z-23 K-99 P-T T- 垃 

半 NO: 

#B7 3STJ 首 上 -49 6-28 H-2 2Z-16 -1 P-Y T-2# 
No: 8 


H N0: 

机 8 EOR 首 上 L-55 6-38 -3 2- k-99 P-D T-3 入 
站 No: 9 

帮 9 BR 放 L-4 6-12 H-2 2-23 K-6 PT 站 


人 
下 面 给 出 一 个 用 汉字 存 贮 的 人 事 档案 程序 H89， 检 索 方 
法 同上 ， 但 可 以 直接 用 汉字 检索 ， 从 而 使 程序 更 为 实用 。 


] RN 牛 9 

2 REI 情报 检索 程序 

引 60 有 5 

5 中 

和 ESERREHING PROGRR 
委 瑞 证 前 (5 侈 ) 

2 IE 耻 部 用 允 

社 F 腿 工 = 寺 玫 吕 

咎 居 表 国 () 


ys 


52 卫 [IT 
名 JTJNP 上 束 
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5 IF 融 = THEN 186 

叹 N = 

吕 F 中 JJ=| 故人 

但 N=N+1 

条 F 限 I=1TG LEN (名 (J)》 -LEN 《于 ) 
] 


物 下 下 5 》 舌 于 《名 () LEN 《8$) THE 
N 120 

1 的 PRINT 融 NO “二 

110 PRINT “后 ) 
120 虑 洒 


150 60T0 55 

168 EN 

260 了 Nfh "3921 条 男 9 岁 工 此 13 本 科 8 
9.69 元 工程 师 团员 

210 区 闪 “3422 吉 民 男 20 岁 工夫 4 初中 爷 
.68 元 工 人 团员 健康 

220 DT “3423 关 小 纺 女 30 岁 工龄 8 高 中 了 
6.56 元 工 人 下 员 一 

238 NT “3424 部 而 痢 女 22 岁 工 苍 2 大 专 6 
0.50 元 技术 员 群 从 一般 

2 DT "3425 芯 男 和风 工 龊 238 大专 4 
7.6 元 工 吉 师 群 从 尚 可 

250 hh 342 人 男 55 岁 工具 35 本 笠 1 
29 .9 元 高 如 3 党 员 一 般 " 

268 BT “3427 人 男 55 岁 工 难 4 高 小 1 
3 元 技师 党 员 一般" 
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278 只 作 “3428 于 元 范 女 35 岁 工 苍 15 高 中 
27. 部 元 工 人 党员 健康" 
286 及 六 的 常 文 林 男 92 岁 工具]8 高 中 1 
从 .6 苑 技 师 党 员 
29 NT 放 303 文 男 93 风 工龄 32 本 料 1 
的 .6 元 孝 
女 4 网 工龄 27 本 科 
女 他 网 工龄 22 本 科 


300 了 人 


< sk 
na 3n 
坦 


习 s 
二 


34.0 昌 


3 鹏 表 


= 汝 Qx-- 


-RN 洛 3RNEEHI 呆 - 自 [ 听 | 只 一 人 入 


re 


-- 攻 
-- 鞭 
-人 二 > 十 


名 尖 
Cs 
洁 1: 
-于 
2 
[ 听 


S 仿 3 和 


098 PRINT 必 汪 
5608 PINT 所. 
578 PRINT 了 
588 PINT %. 
598 RETURN 


|a 福 10 条 1a 和 ta 入 


;在 3 和 FE 相关 油 | 
人 


< 
宝 


DC 一 」 Cn 7 仆 . 芽 oo 人 > < 三 


柑 人 
下? 二 汪汪 闲 汪 3 


起 基 = 全 四 FEs 直 rsIhr-Hannt 


史 
6 册 刘 帮 文 9 工 各 站 

人 423 呈 38 岁 工夫 8 高 中 76.56 元 工 
人 团员 一般 。 

支 No: 4 

#3424 女 22 岁 工龄 2 大 专 60.56 元 技术 
玉 

女 35 岁 工龄 15 高 中 87.69 元 工 

六 


女 99 岁 工 苍 27 本 科 134.6 元 于 


相 48 岁 工 蕉 1 本 科 89.60 元 工 


NO 2 
人 男 26 岁 工 枪 4 初中 95.66 元 工 


ea 
二 


坦 酸 关 : 担 闻 - 
- 
下 限 
ee “- 仆 


立 男 46 岁 工龄 2 大 专 97 .的 元 工 


- 记 、 
太 > 
人 刃 


55 岁 工 郁 35 本 笠 122.8 元 高 


和 三 
| 全 
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CD 
Co 
一 


男 N: 

427 人 男 55 岁 工夫 49 高 小 134.8 元 技 
情 党 员 一 般 * 

男 No: 9 

43429 常 文 林 男友 岁 工 抢 18 高 中 103.9 元 技 
师 党 员 健康 4 

男 No: 二 

13430 胡 文 男 史 岁 工 齿 32 本 科 168.8 元 孝 
捞 党 员 健康 4 


二 一 一 一 一 一 一 一 一 一 一 一 一 一 一 


6 ， 答 立 男 驳 风 工龄 35 本 科 122.0 元 高 
党 训 一 般 

| 

k3432 4 和 女 人 5 岁 工 齿 22 本 科 122.6 元 讲 
师 群众 健康 * 


一 
akt 


-CC 
过 理 候 专 


3 
县 小 个 女 30 岁 工龄 8 高 中 76.50 元 工 
- 夭 


六 apt- 区 到 | 问 
六 


芝 曙 鹃 岁 工 齿 35 本 科 122.6 元 
来 


六 双 pt 1 


汝 安 


大 为 男 55 岁 工龄 49 高 小 134.8 元 技 
良 


要 42] 天 小 男 和 岁 工 齿 二 本 和 料 8. 人 0 元 工 

程 师 团员 健康 

员 No: 2 

+3422 事 民 男 29 岁 工 耸 4 初中 45.60 元 工 
团员 健康 # 

员 0: 3 要 

43423 呈 小 敏 女 30 岁 工龄 8 高 中 76.50 元 工 

人 团员 一 般 * 


员 No: 1 


0 4 女 22 岁 工 齿 2 大 专 68.50 元 技术 


和 各 4 

43426 人 男 吨 岁 工龄 35 本 料 122.6 元 高 
工 党员 一 般 

员 No: ? 

43427 前 大 为 男 瑟 岁 工具 06 高 相 434. 时 技 
前 一 艇 

员 和 iD: 

1 于 元 苑 女 35 岁 工 枪 生 高 中 他. 的 元 工 
人 健康 


中 No: 0 :0 
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?4 
最 后 给 出 一 个 英文 文献 查找 的 实例 ， 见 程序 H90: 


0 REN H90 


60SUB 509 
2 RE 情报 检索 程 序 
5 REN 全 CHING PROGRM 
入 JI 的 (19) 
物 F 吸 J= 1T0 押 
四 RE 各 的 (J) 
3 NEXT ] 
和 限 玫 [一 


53 了 INT 
邑 INPUT 下 
5 If 下 = THEN16 


+ 1 
如 F I=1T0 LEN (各 JJ) - LEN (于 ) + 


] 

9% 1 跑 ( 》 从 咒 《的 (J)T LEN ( 束 》)》 THE 
N 1 

] 撮 PRINT 融 轨 No: “让 

1 了 INT “亲朋 () 

120 EXT 了 

130 NENT 了 

1 和 限 INT 人 


159 6010 析 
159 EM 


289 DRTR "zhan DaoJjiang,，Zou Jinshang :The P 
robab le Maximum of Rainstorms and Fliood,Hydr 
oelectricity Press，BeiJjJing，PP 424，1983.” 
219 DARTR “Zou Jinshang，Liu Changshang,Liu 出 
enbao:The Foundation of RhRtmospPheric Physics， 
Meteorological Press，Beijing,PP 365,， 1982.” 
226 DRTR“zou Jinshang, Zhang Youlian,Yang Z 
hongqiu:Climnatic features in the free atmosP 
here over NanjJing,ACTR meteor.Sinica,31(4),3 
28-338，1962.” 
238 DRTR “Zou Jinshang,Yang Zhongqiu, zhang 
YOULIRARN :Specific humidity and uwater vapour < 
ontent in free atmosphere over NanJing,J.of 
NanJjing Uni.，(Meteor.-》No.2,39-5q4，1962."” 
2498 DRTA “Zou Jinshang,Zzhang Youlian:Some 了 
avourab Ile weather conditions for Stimulating 
rains over NanJjJing Region,J.of NanJjing Uni-. 
《meteor.》 No.2,85-97，1962.” 
256 DATR “Zou Jinshang,Mo Tianiin and .Xu Sh 
aozhu:3ome aSsPects of the distubution of gia 
nt hygroscoPic nuclei over the region of the 
Lower reaches of Yangtze in Summer，J.of Nan 
Jing Uni.，8(1)，148,，165，1964.” 
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268 DRTR “2zou Jinshang:hR method of estimati 
can PMP,J.of NanJlting Uni.，No.1,，113-118,， 1977." 
278 DRTR “Zou Jinshang:('756'grouP of Nanji 
ng Uni.》 Estimation in the valley of Tou-tou 
River Meteorological Science and Technology 
13-33，No.5，1977.” 

289 DATA “Zou Jinshang :Some methods of ComP 
uting water vaPour content in the _ atmosphere 
:Meteorotlogical Science and Technology，33-36 
，1978.” 

299 DAT “Zou Jinshang:hdvance of study on 

PMP Estimation,Natural Journal,3(11),815-816 
1988.” 


Sea PRINT “本 程序 以 查找 英文 文献 为 模式 ,介绍 
了 一 种 简直 易 和 凤 , 操作 方便 的 多 用 途 检 索 程 序 .” 
518 PRINT “程序 运行 后 ,输入 文献 中 的 任意 关键 
字 ( 个 别 字符 ), 即 可 查找 存储 的 信息 ,如 无 此 文献 以 
标志 找 不 到 ,并 返 困 主 控 再 找 , 停止 查找 按 #8 和 
RETURN” 

688 RETURN 


]RUN 

本 程序 ee 一 种 简短 易 
获 , 操作 方便 的 多 用 途 术 . 

程序 运行 后 ,输入 文献 中 的 任意 关键 字 ( 个 别 字符 )， 
即 可 查找 存储 的 信息 ,如 无 此 文献 以 .………… 标志 找 不 
到 , 并 返回 主 控 再 找 , 停止 查找 按 8 和 RETURN 


?1962 

1962 No: 3 

水 Zou Jinshang,zhang Youlian'Yang zhongqiu:Cl 
imatic features in the free atmosphere Over 

Nanjing,ARCTR meteor.Sinica,31(4)，328-338,，196 
2. 半 

1962 No: 4 

汕 ZOU Jinshang,Yang zhongqiuzhang YOULIRN :SP 
ecific humidity and uater vapour content in 
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free _ atmosphere over Nanjing,J.of NanJing Un 
i.，(Meteor.) No.2,，39-54，1962. 洒 

1962 No: 5 

冰 Zou Jirshang,zhang Youlian:Some favourab le 

Weather conditions for Stimulating rains ove 

r NanJjing Region,J.of NanJjing Uni.，(neteor.) 
No.2,85-97，1962. 六 

?Maximunm 

Maximum No: 1 

站 冰 Zhan Daocojiang,Zou Jinshang:The Probab le Ma 
ximnum of Rainstorms and Flood,Hydroeliectricli 
ty Press,，Beijing,PP 424，1983 .水 

?85-97 

85-97 No: 5 

水 ZOU Jinshang*Zzhang Youlian:Some favourab le 
weather Conditions for Stimuiating rains Oove 
r NanJjJing Region'*J.of NanJjing Uni.，(meteor.》 
No.2，85-97，1962 .水 


?PP 424 

PP 924 No: 1 

冰冰 Zhan Daojiang，Zzou Jinshang:The Probable Ma 
ximumn of Rainstornms and Fliood,Hydroelectric li 
ty Press，BeijJing,PP 424，1983 .水 


?Meteorological 

Meteorological No: 2 

站 Zou Jinshang,Liu Changshang,Liu Wuenbao:The 
Foundat ion of htpospheric Physics，Metecorolog 
ical Press,Beijing,pPP 365，1982. 水 
Meteorological No: 8 

冰 Zou Jinshang:( "756 "grouP of Nanjing Uni.》E 
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Stimation in the valley of Tou-tou River Met 
eorological Science and Technology，13-33,No. 
5，1977 .水 

eteorological No: 9 

水 ZOU Jinshang :Some pethods of computing uate 
r,.vapour content in the atmosphere,Meteorolo 
gical Science and Technology，33-36， 1978 .站 


人 


?atmosphere 

atmosphere No: 3 

冰 ZOuU Jinshang,Zzhang Youlian,Yang Zhongqiu:Cl 
imat ic features in the free atmosphere over 

NanJjJing,hARCThR meteor.Sinica,31(4)，328-338,， 196 
2. 涉 

atmosphere No: 4 

冰 Zou Jinshang,Yang Zhongqiu, Zhang YOULIRAN :SP 
ecific humidity and water vapour content in 

free atmosPhere over Nanjing,J.of NanJjJing Un 
i.，(Meteor. ) No.2,39-54，1962. 水 

atmosphere No: 9 

冰 ZOU Jinshang:Some methods of compPut ing wate 
T vaPour content in the atmosphere,Meteorolo 
gical Science and Technology，33-36，1978 .水 


assetseeooeseeeese ee ， 


?424, 19 
?EXTRAR IGNORED 
424 No: 1 


冰冰 Zhan DaoJjiang，Zzou Jinshang:The Probab le Ma 
ximum of Rainstorms and Fltood,Hydroelectrici 
ty Press，Beijing,PP 424,，1983. 


?Zou 

Zou No: 1 

冰冰 Zhan Daojiang,Zou Jinshang:The Probab le Ma 
ximum of Rainstorms and Fliood,Hydroelectric i 
ty Press，Beijing,PP 424，1983 .水 
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Zou No: 2 

水 ZouU Jinshang，Liu Changshang，Liu Uenbao :The 
Foundation of htmospheric Physics*Meteorolog 
ical Press，BeiJing,PP 365，1982 .水 

Zou No: 3 

ZOuU Jinshang, Zhang Youlian,Yang Zhongqiu:Cl 
imatic features in the .free _ atmosphere over 

Nanjing,ARCTR meteor.Sinica,31(4),328-338, 196 

2. 水 

Zou No: 4 

*Zou Jinshang,Yang Zhongqiu*Zhang YOULIRN :SP 
ecific humidity and water vapour content in 
free _ atmosphere over Nanjing,J.of NanJing Un 
i.，(Meteor. 〉 No.2,39-54,， 1962. 浆 

Zou No: 5 

冰 Zou Jinshang, Zhang Youlian:Some favourab le 
Weather condit ions for Stimulating rains ove 
r Nanjing Region'J.of Nanjing Uni-，(meteor.) 
No.2，85-97，1962. 汪 

Zou No: 6 

水 ZOU Jinshang,hMo Tianltin and Xu Shaozhu:Some 
asPects of the distubution of giant hygrosc 
opic nuctlei over the region of the lower rea 
ches of Yangtze in Summer,，J.of NanJings Uni.， 
8(1)，148，165S: 1954 .水 

Zou No: ?了 

本 ZOU Jinshang:R method of estimation PMP,J 了 :o 
f Nanjing Uni.，,No.1,113-118,，1977. 站 

Zou No: 8 

站 ZOU Jinshang:('756'grouP of NanJjing Uni.》E 
Stimation in the valley of Tou-tou River Met 
eorological Science and Technology，13-33, No. 
5，1977 .水 

Zou No: 9 

水 ZouU Jinshang :Some methods of computing wate 
r vapPour content in the atmosPhere,Meteorolo 

9gical Science and Technology，33-36，1978 .* 

Zou No: 19 

ZouU Jinshang :hdvance of study on PMP Estima 
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tion*Natural Journal,，3(11)，815-816,，1988.* 


ae 
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九 、 图 形 绘 制 


1， 电 子 日 历 钟 


下 面 是 一 个 电子 日 历 钟 程序 〈 见 H91), 只 要 在 程序 运行 
后 输入 当时 的 月 份 . 日 期 .星期 和 时 间 〈 时 间 以 整 小 时 输入 )， 
即 可 在 屏幕 上 显示 〈 如 图 9.1) 的 一 个 时 钟 ， 它 显示 醒目 ， 走 
时 准确 ， 毫 不 逊色 于 一 个 真正 的 电子 钟 。 


日 “星期 时 分 各 





图 9.1 
由 于 图 形 和 汉字 信息 全 部 在 高 分 辩 率 第 2 页 画面 作出 ， 
故 打 印 十 分 方便 ， 按 CTRL-RESET 后 ， 键 入 
PR 并 17 
POKE1913，2 
PRINT CHR$(17)w 
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]UST 


5 REN 9 

1 REN 电子 日 历 仲 

2 划 居 12) 

2 FI=1T012:RE 色 从 JD): NEXTTI 

38 HR2 : HIE 

35 VT 角 1 H 角 1: INPUT "请 输入 月 ,日 ,星期 ， 


THEN 3 

) 叹 几 8 中 由 60 
和 

和 Ki = 04k2 = 

史 N= 3.1415926 * 2 - 3.1915926 + 2 / 6 
的 用 = 3.1415926 + 2 /7 6 

7 HCOLR= 3 

名 HPLIT 25, 和 5 T0 255, 人 5 T0 255,179 T0 25,1 
了 9 人 25, 人 6 

% F 吸 $=0T0NSTEp 半 

19% = 吕 k SIN(S) + 1 = 59 和 00 
3) + 1 

1 HPLOT 8Y 

128 ENT 

499 FRS=8TONSTEP ND*#5 

7 FS= 伯 *k 人 THENG -0.35 
捕 站 = 品 # SN 人) + = 兄 本 (0 
(3) + 1 

上 0-0.93: IFS=-8 中 $= 配 用 月 S= 
入 本 有 THEN 0 = 84. 全 

本 宕 = 信 =- 109)#0+ 199 

WE 人 Y- 19)*0+1lg 


48 HPLOT 8Y TO 贡 Y 
188 EXT $ 
218 FOR 了 


398 F 腿 必 = 8 和 NSTEP 

3 地 X2 = 生 相 SIN (8.5236 水 I3+ 作 和 12) + 

140 

3280 人 = -25#k 0 0.5236#I3+ 作 A 雪 ) 
+ jd 

3388=32# SIN (+10Y= -36 (0 
《 几 + 的 

3 FS=8T0NSTEP 汪 

398 叶 = 担 # SN 人) + 190Y1= -和 了 
的 (3) + 110 

3608 H0LIR= 3 

318 HPLOT 18, 1 TD0 X2Y2 

388 HPLOT 1810 T0 六 

3 HPLOT 19 1 TO ADY1 

人 8 和 印 工 = 1 0 322: 全 AT 

4 凡 有 有 = 

428 HPLOT 4146 110 T0 XbDY1 

430 kkl+ 人 下 kz 的 TENKN -8 

448 W 朋 1: PRINT T 凶 ( 6) 和 年 5 TB 10) 
月 T 印 ( 19) 庆 日 T 凶 (18); "星期 ;TAB( 23 
六 "时 ;ThB( 26 分 TB( 29) 秒 " 

468 W 秀 2: HT 名 2 

df TINVERSE 

488 PRINT TB( 551988 TAB 10)3I1 TB 
( 14)525 TAB 20) 测 ;TAB( 23);I3; TAR 20); 
2 TB 29) 水 本” 
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和 98 NORINL 

3940 EXT 3 

18 HILIR= 1 

528 HPLOT 148 116 TO2Y2 

938 HPLOT 198 1 人 TO YY 

94 2 = k2+ 1 

556 下 人 = 的 TENK2 = 和: PINT ”PRINT 
中共: CTRL-6 

968 化 人 并 

319 人 AT 

080H=8 

898 由 = 由 + 1 

688 下 臣 = 了 THNU 8 

018 人 EN 12 

t28D =1 


程序 简要 说 明 : 

。20，25，650 三 句 ， 存 贮 月 份 (M (12) ), 注 意 润 年 ， 
如 1988 年 2 月 为 29 天 。 

。30 一 37 句 : 输入 当时 的 月 份 、 日 期 、 星 期 和 时 间 。 星 
期 以 0,1,2,……，6， 其 中 0 代表 星期 日 时间 以 小 时 输入 
为 单位 ， 计 时 从 0 分 0 秒 开 始 。36 一 37 句 为 防止 输入 错误 而 
设置 的 控制 语句 。 

。40 一 180 句 : 画 电 子 钟 圆 盘 , 其 中 80 句 画 一 个 方 框 , 90 一 
120 句 画 60 个 小 点 ，130 一 180 句 画 12 根 短线 。 

。270 一 630 句 为 一 个 大 循环 ， 循 环 变量 为 1, 计 月 份 。 

。280 一 610 句 ， 计 日 期 ， 循 环 控制 变量 为 I 2。 

。290 一 570 句 ， 计 算 小 时 ， 用 1 3 做 循环 控制 变量 。 
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。 300 一 560 句 ， 控 制 分 、 秒 循环 。K 。， 开 :为 分 、 秒 计 
数 器 。 

"370 一 390 句 ， 画 时 、 分 、 秒 针 。 

“ 调 正 400 句 的 循环 终 值 ， 可 使 电子 钟 走时 准确 。 

。 440 句 , 打印 中 文 年 月 日 星期 时 分 钟 的 表 头 。 

。48(0 句 , 打印 年 月 日 星期 时 分 秒 的 数字 ， 它 们 随 着 时 钟 
的 走动 而 变化 。 

。430 句 , 控制 秒 的 计时 ， 计 满 60 秒 K 1 复 零 。540 一 550 
句 ， 控 制 分 的 计时 ， 计 满 60 分 K 2 复 零 。590 一 600 句 ， 控 制 
星期 ， 计 满 6 天 W 复 零 。L 3 循环 完成 ， 小 时 H 复 零 。I > 循环 
完成 ， 日 期 D 从 1 号 开始 。 


2. 高 分 辩 率 图 形 的 向 量 作 图 法 


下 面 是 计算 机 打印 出 来 的 一 张 电子 线路 图 ( 见 图 9.2 )。 
绘制 电路 图 形 不 是 一 件 困难 的 工作 ， 它 可 以 用 高 分 辨 图 象 方 
式 下 的 画图 语句 HPL OT 完成 。 但 是 ， 要 在 电路 图 的 适当 地 
方 ， 加 注 元 件 符号 就 不 是 一 个 简单 的 事情 ， 因 为 许多 微机 都 
存在 高 分 辩 作 图 和 文本 方式 互 不 兼容 的 问题 ， 这 就 是 说 ， 可 





343 


以 绘图 但 不 能 写字 ， 特 别 是 不 能 在 图 象 的 任意 位 置 写 字 。 

为 了 解决 作 图 和 写字 的 矛盾 ， 真 正 做 到 图 文 并 茂 ， 使 图 
象 信息 更 为 丰富 ， 画 面 更 富有 情趣 ， 我 们 这 里 介绍 一 种 新 的 
画图 方 ; 

癌 量 作 图 法 ， 又 称 矢 量 作 图 法 ， 或 者 称 为 图 形 法 ， 造 型 
表 方 法 。 这 种 方法 的 基本 思想 是 : 把 图 的 轮廓 线 分 解 成 许多 
基本 矢量 的 集合 ， 把 绘图 时 笔划 移动 的 过 程 记录 下 来 ， 做 成 
图 形 表 (造型 表 ), 将 造型 表 放 入 内 存 中 某 个 特定 区 域 ， 它 就 
是 绘图 的 依据 ， 然 后 在 程序 中 用 特定 的 语句 和 专门 的 命令 ， 
调用 这 个 造型 表 ， 就 可 以 在 屏幕 上 将 图 形 显示 出 来 ， 同 时 ， 
利用 绘图 命令 ， 可 以 将 调 出 来 的 图 形 进行 旋转 、 放 大 。 

上 述 思 想 是 不 难 理解 的 ， 因 为 任何 复杂 的 图 形 都 可 以 分 
解 成 若干 个 基本 图 形 ， 而 每 一 个 基本 图 形 都 可 以 看 成 是 很 多 
短线 、 点 线 的 集合 。 因 此 ， 只 要 控制 这 些 短 线 或 点 的 走向 ， 
就 可 以 绘 出 各 种 图 形 。 例 如 ， 一 幅 风 景 画 可 以 由 山脉 、 河流、 
树木 、 花 草 、 房 屋 、 小 桥 组 成 ， 而 山脉 、 河 流 、 花 草 等 都 是 
由 点 点 线 线 构成 的 ， 改 变 它们 比例 的 大 小 和 相对 位 置 ， 就 可 
以 构成 不 同 的 风景 画面 。 如 果 再 加 上 有 关 作 图 语句 和 命令 还 
可 以 使 图 形 活 动 起 来 ， 从 而 形成 美丽 多 变 妙趣 横生 的 动画 
来 。 

下 面 分 五 个 问题 介绍 高 分 辨 率 图 形 造型 表 。 

(1) 造型 表 生 成 

假定 我 们 希望 画 出 如 图 9.3 所 示 的 图 形 ， 可 先 拿 一 张 方 
格 纸 来 具体 画 出 ， 然 后 用 图 形 向 量 依次 记录 笔 的 移动 过 程 ， 
当 笔 向 什么 方向 移动 ， 就 画 一 个 向 那个 方向 的 箭头 ， 移 出 这 
一 格子 时 如 需 画 点 ， 则 在 箭 根 上 画 一 个 圆 点 。 图 9.3 中 的 6 
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个 点 ， 可 用 图 9.4 中 表示 的 a 一 g 7 个 步骤 完成 。 


e e@ e 。 
@ ee G 全 
人 -一 人 一 一 
b cC 
。 加 
图 9.3 9.4 


图 9.4 中 a 表 示 画 一 个 点 ， 然 后 向 上 移动 一 个 坐标 ;jb 表示 
画 一 个 点 ， 然 后 向 右 移动 一 个 坐标 ; “与 bp 相同 。 但 d 则 表示 
不 画 点 ， 仅 上 移 一 个 坐标 。 

至 于 从 那 一 点 开始 ， 那 是 没有 关系 的 ， 但 一 定 先 选 定 一 
个 笔 的 起 始 位 置 ， 本 例 中 是 从 a 矢量 开始 画 。 

以 上 是 一 个 简单 图 形 的 描绘 过 程 ， 但 是 仅 有 这 张 向 量 图 
还 不 行 ， 如 何 区 别 向 什么 方向 移动 画 还 是 不 画 呢 ? 显然 必 
须 用 一 定 的 特征 代码 来 表示 ， 这 样机 器 才 好 识别 。 

例如 向 上 、 向 右 、 向 下 、 向 左 四 个 移动 方向 可 以 用 特性 
码 00，01，10，11 分 别 表示 :， 即 


移动 方向 特征 代码 
人 向 上 00 
一 向 右 01 
JJ 向 下 10 
e 向 左 11 


但 是 仅 有 二 个 代码 还 不 行 ,因为 它们 只 能 表示 移动 方向 ， 
还 不 能 说 明 画 或 者 不 画 的 情况 ， 为 此 必须 再 选用 一 个 代码 ， 
以 区 分 画 与 不 画 两 种 情况 ， 例 如 ， 我 们 约定 1 表示 画 ，0 表 示 
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不 画 。 这 样 ， 四 个 移动 方向 ， 画 与 不 画 共 8 种 情况 就 可 以 表 
示 出 来 ， 即 : 


个 向 上 不 画 000 
一 向 右 不 画 001 
向 下 不 画 ”010 
和 向 左 不 画 011 
和 人 向 上 画 出 100 
e>” 向 右 画 出 101 
?9 向 下 画 出 110 
< 向 左 画 出 111 


有 了 上 述 特性 代码 ， 图 9.4 中 a 一 g 对 应 的 描绘 向 量 段 应 
分 别 办 : 
100 
101 
101 
: 000( 或 00) 
: 111 
111 
110 
为 了 将 上 述 各 个 描 给 向 量 所 对 应 的 特征 代码 存 贮 在 内 存 
区 中 ， 必 须 按 一 定 的 规则 顺序 存放 。 由 于 8 位 机 每 个 字 节 可 


D PDPD PP PD PD 


图 9.5 


Po 可 
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以 存放 8 位 二 进 制 代码 ， 因 此 ， 每 个 字 节 可 以 存 贮 两 个 描绘 
矢量 对 应 的 特征 代码 。 

每 个 字 节 分 成 三 段 ， 如 图 9.5 所 示 : 

其 中 最 低 三 位 为 A 段 ;中 间 三 位 为 B 段 ;最 高 二 位 为 C 
段 。A 、B 两 段 中 三 位 数 的 低 二 位 及 C 段 中 的 二 位 数 称 做 D 
位 ，A 、B 两 段 中 的 高 位 称 为 P 位 。 对 于 D 和 P 做 如 下 规定 : 


_「 0 不 画 
| 画 点 
00 个 

加 01 一 

D D = 10 | 
11 和 


这 样 ， 就 和 我 们 先前 约定 的 描绘 每 个 矢量 的 特性 码 相 一 
致 。 

为 了 将 图 9.4 中 描绘 向 量 的 特性 码 填 入 图 9.5 所 示 的 字 节 
中 ， 应 按 下 述 规定 处 理 ; 

。 每 个 描绘 矢量 按 三 位 码 顺序 从 A 段 至 C 段 填写 。 

。 对 每 个 描绘 矢量 来 说 ,如 果 C = 00， 则 C 段 不 起 作用 ， 
即 不 用 C 段 ， 如 果 B =000， 则 仅 A 段 起 作用 。 

“ 当 一 个 图 形 的 所 有 描绘 矢量 填 完 后 ， 必 须 填 满 一 个 全 
零 字 节 ， 作 为 结束 表示 。 

“ 在 表示 “上 移 不 绘 出 ”这 个 描绘 矢量 时 ， 高 端 必须 非 
零 ， 否 则 不 会 产生 任何 移动 。 即 “上 移 不 绘 ” 这 个 矢量 在 B 
段 表示 时 ，C 段 必须 为 0 。 

这 样 ， 图 9.4 的 情况 应 按 图 9. 6 格式 存放 。 
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图 -9.6 


以 上 介绍 的 仅仅 是 一 个 造型 ， 即 图 9.3 中 6 个 点 的 图 形 。 
如 果 再 加 上 这 个 造型 的 结束 标志 ， 将 全 0 填 满 一 个 字 节 ， 则 
共 占 5 个 字 节 。 

应 该 指出 的 是 ， 每 个 字 节 中 8 位 二 进 制 代码 书 写 十 分 不 
便 ， 常 常 改 用 十 进 制 ， 八 进 制 或 十 六 进 制 填写 。 如 二 进 制 码 
“00101111” 改 写成 其 它 进 制 形式 为: 

二 进 制 码 二进制 码 二进制 码 

00101 111 00101 111 00101 111 

十 进 制 码 ”八进制 码 十 六 进 制 码 
47 5，7 人 下 

(2) 造型 表 存 贮 

怎样 将 描绘 向 量 的 图 形 数据 〈 即 特性 码 ) 检索 出 来 ， 以 
便 以 后 用 绘图 语句 画 出 图 象 的 原形 来 ， 首 先 要 解决 各 个 造型 
的 存 贮 问题 ， 为 了 方便 检索 ， 还 应 编制 一 个 索引 ， 这 样 就 要 
编制 一 个 造型 表 ， 它 由 许多 图 形 数据 和 索引 信息 组 成 。 

造型 表 中 前 面部 份 安排 一 个 索引 挡 ， 它 指明 造型 表 中 有 
多 少 个 造型 ， 每 一 个 造型 的 存 贮 地 址 ， 接 下 去 存放 每 一 个 千 
型 矢量 的 代码 ， 每 一 个 造型 用 全 0 字 节 结尾 。 而 其 它 不 同 的 
造型 一 个 接着 一 个 地 装 在 表 中 。 
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现在 ,我 们 从 一 个 具体 例子 出 发 ,看 造型 表 是 如 何 编制 的 。 
例如 ， 有 五 个 造型 数据 ， 它 们 分 别 为 : 

45，40，32，5;， 168，174，21，37，0 
45，40，32，5，40，45，21，37，0 
45，5，'40，5，40，45，21，37，0 
45，45，45，45，45，37，0 ,37，0 
9，5，32，5，40，168，21，21,，173，37，0 

假定 索引 挡 首 地 址 放 在 $ 300(768) 中 ， 则 造型 表 的 结构 


如 表 9.1。 


表 9.1 





形 造 型 的 个 数 。 本 例 为 


o 








第 一 个 造型 首 地 址 从 $030 C 开始 , 离 表 
头 的 距离 是 12 〈$000C , 低位 在 前 ， 高 位 
在 后 )。 


第 二 个 造型 首 地 址 从 $0315 开 始 ， 离 表 
头 的 距离 21 ($0015)。 





cn 心 





第 三 个 造型 首 地 址 从 $031E 开始 , 离 表 
头 的 距离 30 ($001 忆 )。 


口 








第 四 个 造型 首 地 址 从 书 0327 开 始 ， 离 表 
的 距离 39 ($0027 ) 。 


es 





上 
S 十 
S 十 
S 十 
S 十 
S 十 
S 十 
S 十 


第 五 个 造型 首 地 址 从 $032 正 开始 , 离 表 忆 
是 汪 力 汪 生生 直人 2 





第 一 个 造型 的 第 一 个 数据 45 ($ 2 D)， 
其 首 地 址 是 $030C 。 





第 一 个 造型 的 第 二 个 数据 40 〈$28), 地 
址 是 $030 D 。 





第 一 个 造型 的 第 三 个 数据 32 〈$20), 地 
址 是 中 030E 。 
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te 





第 一 个 造型 的 第 五 个 数据 168($A 8 )， 
地 址 是 $0310。 


第 一 个 造 型 的 第 关 个 数据 174($ A 下 )， 


| 地 址 是 $ 0311。 


第 一 作 千 型 的 第 七 个 才 提 21569157? 地 
址 是 $$03 


第 一 个 造型 的 第 八 个 数据 37 ($25), 地 
址 是 $0313。 


站 第 “个 千 到 结束， 民 交 00 访 在 中 0 




















第 二 个 造型 的 第 一 个 数据 45 〈$$ 2 D )， 
其 首 地 址 是 $0315， 未 地 址 是 $031D。， 





第 三 条 型 的 第 一 个 数据 45( 有 2D )， 其 
首 地 于 定 031 忆 , 末 地 址 是 $03 


第 四 个 造型 的 第 一 个 数据 45($$2D ), 其 
首 地 址 是 $0327， 未 地 址 是 $032D 。 


ee 

各 存 贮 单元 的 地 
址 ， 都 是 相对 S 而 言 的 ， 是 相对 地 址 。 例 如 ，S = 0 时 ， 地 
址 为 $0300， 则 S = 1 时， 地 址 就 是 $0301。 

索引 表 的 首 地 址 中 ， 存 放 的 是 造型 的 个 数 。 相 对 索引 表 
首 地址 为 1 的 地 址 内 存 中 放 的 00， 这 个 一 个 规定 值 。 

从 这 个 规定 值 以 后 ， 依 次 顺 放 第 一 、 第 二 、.…… 到 第 五 
个 造型 的 首 地 址 ， 每 个 地 址 用 二 个 字 节 表示 , 地 址 高 位 在 前 
地 址 低位 在 后 ， 这 样 ， 五 个 造型 共用 10 个 存 贮 单元 。 

全 部 造型 的 地 址 存 贮 完成 后 ， 接 下 去 依次 存放 每 个 造型 
的 数据 ， 一 个 造型 的 全 部 数据 放 完 后 ,安排 一 个 00 作 为 结束 ， 
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再 存放 第 二 个 造型 、 第 三 个 造型 …… 等 等 ， 直 至 全 部 造型 数 
据 存 放 完 毕 。 

我 们 这 个 造型 表 的 例子 起 始 地 址 选 为 $ 0300， 这 是 因为 
整个 造型 表 的 长 度 没 有 超过 60 个 字 节 ， 如 果 造 型 表 长 度 超过 
256 个 字 节 ， 则 起 始 地 址 不 允许 选 为 中 0300, 可 以 选用 $$ 6000 
为 起 始 地 址 。 这 就 是 说 要 把 一 个 造型 表 送 入 机 器 中 ， 首 先 要 
确定 S 的 值 , 它 表 示 造 型 表 的 起 始 地 址 放 在 内 存 中 什么 地 方 。 
这 个 地 址 要 选择 合适 ， 和 否则 程序 运行 时 会 把 它 破 坏 掉 。 

上 述 造 型 表 ， 只 为 我 们 检索 各 个 造型 提供 了 依据 ， 实 际 
使 用 时 还 必须 编制 一 个 程序 将 它 送 入 内 存 ， 然 后 还 要 使 用 绘 
图 命令 ， 把 各 个 造型 调 出 来 从 而 恢复 成 真正 的 图 形 。 

(3) 造型 绘图 命令 

一 个 造型 表 中 有 若干 个 造型 ， 每 一 个 造型 都 是 由 基本 矢 
量 构成 的 。 这 些 造型 表 在 应 用 时 ， 并 不 是 一 起 使 用 的 。 用 它 
绘图 时 必须 要 用 专门 的 命令 。 

例如 ， 要 在 屏幕 的 什么 位 置 上 ， 画 第 几 个 造型 ， 这 就 要 
用 到 DR AW 命 令 。 造 型 表 各 个 造型 的 矢量 ， 只 说 明 方向 ， 
并 没有 说 明 大 小 ， 必 须 用 一 个 命令 解决 每 个 矢量 画 多 大 的 问 
题 ， 这 就 是 SC AL 忆 命 令 。 同 时 ， 为 使 图 象 显 示 更 加 生动 
活泼 ， 还 必须 有 能 使 造型 旋转 变化 的 命令 人 ROT 。 为 使 画面 
产生 活动 的 效果 , 还 应 有 使 已 画 造 型 消 隐 的 命令 XDR AW。 

造型 绘图 命令 有 四 个 ， 它 们 可 以 把 造型 表 中 所 定义 的 指 
定 图 形 显示 出 来 。 

“SCALE 

该 命令 的 功能 是 设 定 图 形 向 量 的 大 小 。 当 SCALE= 3 
时 ， 每 个 图 形 向 量 对 应 屏幕 上 3 个 点 ; 当 SCALE= 0 时 ; 
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表示 最 大 的 形状 ， 每 个 图 形 向 量 绘 成 256 个 点 。 

.DR AW 

绘 出 造型 表 内 第 几 个 造型 ， 使 用 最 近 所 选 颜色 ， 例 如 ; 

DRAW 1 AT 140，80 

即将 表 中 第 1 个 造型 绘 于 140 行 80 列 开始 的 地 方 。 以 它 
作为 绘图 的 起 笔 点 。 

又 如 ，DRAW 5 

则 将 表 中 第 5 个 造型 绘 出 ， 坐 标 为 〈0,0) 

。 XDR AW 

其 功能 和 DR AW 一 样 ， 但 取 其 颜色 为 原来 的 补 色 ， 实 
用 上 它 可 以 控 除 上 次 已 画 过 的 图形 〈 其 参数 应 和 DR AW 一 
样 )。 

“ROT 

该 命令 的 功能 是 将 图 形 转动 一 定 角度 。 当 SCALE= 1 
时 ， 只 有 四 个 旋转 值 能 为 ROT 使 用 ( 即 0,16，32，48); 当 
SCALE= 2 时 ， 则 有 8 个 旋转 值 为 ROT 使 用 〈0,8,16， 
24，32，40，48，56); 而 当 SCALE>5 时， 可 以 有 0 到 
63 共 64 种 旋转 角度 。 

(4) 造型 生成 程序 

前 已 指出 ， 必 须 将 造型 表 送 入 内 存 才能 使 用 ， 送 入 的 方 
法 是 用 程序 来 实现 。 

例如 ， 下 面 这 段 程序 ( 见 H92 )， 运 行 后 可 以 得 到 一 个 动 
态 的 运动 图 形 。DATA 语 名 中 的 数据 就 是 我 们 介绍 的 造型 
表 中 的 存 贮 内 容 ， 不 过 数值 都 改 为 十 进 制 数 。20 句 中 数据 是 
索引 挡 的 内 容 , 共 有 5 个 图 形 定义 , 一 个 规定 值 0, 以 及 5 个 造 
型 的 首 地 址 。30 一 70 句 依次 顺序 存放 1.2、.3、4.5，5 个 造型 数 
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据 ， 每 个 DAT A 区 放 一 个 造型 。80 一 100 句 是 一 个 循环 ，[ 
循环 变量 控制 地 址 ， 地 址 中 的 内 容 放 入 又 中 ,再 用 P OKE 指 
令 存 放 地 址 和 对 应 地 址 的 内 容 。 

这 里 都 是 用 十 进 制 数 表示 的 ， 768 就 对 应 于 十 六 进 制 数 
$0300，824 对 应 于 叫 0338。 

110 句 的 232 ($ 正 8) 和 233 (〈$ 正 9) 号 单元 ， 是 专门 用 
来 存放 造型 表 首 地 址 的 。 其 中 232 单元 存放 造型 表 首 地 址 的 
低位 地 址 ,233 单 元 存放 造型 表 首 地 址 的 高 位 地 址 。 由 于 造型 
表 首 地 址 是 $0300， 所 以 有 : 

POKE232,0:POKE 233,3 

120 一 190 句 ， 用 循环 的 方式 ， 调 用 5 个 造型 ， 选 用 四 种 
绘图 语句 ， 从 而 产生 一 个 运动 的 画面 。 

改变 140 句 的 循环 值 ， 改 变 150,160 句 X 后 面 的 值 ， 以 及 
再 加 一 重 J 循环 ， 会 使 动画 更 加 丰富 ， 读 者 可 以 自行 试验 。 

190 句 的 作用 ， 是 多 次 重演 动画 ， 要 结束 按 CTREL- 
RESET 键 。 

程序 H92 在 中 文 或 西 文 状 态 下 都 能 运行 。 

]LUST 

5 REN 抽 2 

区 REM 动画 程序 

28 和 5081282838039 0 二 

38 及 Th 加)50 325168 1923P8 

罗 的 作 加 32)5 400 45213760 

史 扒 Th 提 5748 5 和 0 45241308 

6 的 区 人 种 05 和 3 

大 Th 95 32757 1401682121 173370 

8 F 腿 I=768T082 
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表 9.2 


键 盘 输 入 


说 





CALL-151 岂 


0300: 01 00 04 00 12 
3F 24242D 2D 36 
36 3F 00 





CTRL-RESET/ 


进入 监控 状态 
将 造型 表 装 入 内 存 ， 起 始 地 址 为 $ 
0300， 共 14 个 字 节 ， 1 个 造型 





返回 APPLE SOFT 





BSAVE M，A$0300,| “将 造型 表 存 入 盘 中 ， 名 为 M 


L 14 


上 





编制 绘图 
程序 并 
存盘 


上 


10 POKE 232.0: 
POKE 233,3 


将 图 形 表 首 地 址 书 0300 置 入 内 存 
232,233 单 元 





HGR2 
HCOLOR= 3 


离 分 辨 率 绘图 
图 形 颜色 为 白色 





FOR I= 17TO 40 
ROT=I 


SCALE=[ 


70 DRAW 1 AT 
140,80 





浊 


将 图 形 旋转 ， 角 度 = 《1 xy) 





将 图 放大 1 倍 





绘制 第 一 个 造型 ， 中 心 坐标 在 
(140，80) 





80 NEXT 1 
90 END 





SAVEN 


绘图 程序 存盘 ， 名 为 N 





绘图 并 打 
印 输出 
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了 





BLOAD MW 


将 造型 表 装 入 内 存 





LOAD NM 


将 绘图 程序 装 入 内 存 





RUN UV/ 


进行 绘图 





PR 共 1 WwW 


启动 打印 机 








POKE 1913，2M 


和 
PRINT CHRSU7) 





将 绘图 结果 打印 输出 





入 RED 关 POKE 了 

] 的 尼 呆 

110 POKE 232.0: POKE 233,3 

120 HOME :HGR2 : HCDLOR= 3: SChRLE= 3: RUT- 


138 FIRX= 扫 TO0260STEP- 雪 
] 咎 F 腿 I=1T05 

158 职 抽 工作 罗 100 

106 XDRAU 工作 -190 

if 全 人 

的 NEAT 

19 60T0 138 


以 上 介绍 的 造型 生成 程序 ,数据 都 是 用 10 进 制 数 存 贮 的 。 

下 面 介绍 一 种 用 二 进 制造 型 表 的 方法 ,绘制 高 分 辩 图 形 ， 
造型 只 有 一 个 ， 是 一 个 正方 形 ， 但 利用 程序 控制 ， 使 这 个 正 
方形 显示 出 方块 旋转 螺 线 图 。 整 个 程序 编制 的 详细 说 明 ， 见 
表 9.2。 

(5) 造型 表 应 用 

下 面 给 出 一 个 AS CII 码 造型 表 程序 H93， 程序 中 共有 
96 个 造型 ， 运 行车 程序 后 ， 稍 等 一 段 时 间 ， 即 在 屏幕 上 显示 
所 有 96 个 造型 图 形 ， 若 采用 下 述 命令 , 即 可 打印 输出 如 图 9.7 
显示 的 反 相 显示 图 形 。 

PR 并 1 

POKE 1913,2 

POKE 1913，34 

PRINT CHR$ (17)v 


: 
用， 
区 
人 
心 1 
nn 
WU 


]LST 
? EN H93 


1 


REN 航 CI 3HhPES 
RE NUMBER9 SHAPE 
603 内 288 

HR2 : HULR= 3 

RUT 0: SChLE= 1 


下 腿 I=1TON 


下 工 》98 THEN 250 
于 工人 8THEN 24 
开工 》f9 THEN 238 
和 f 工 >68 THEN 228 
II>358THEN 2 
II 蝗 THEN 2 的 
于 工 >38THEN 108 
于 >》26THEN 188 
If IT 地 THEN 1 
了 琴 币 工人 并 22 站 了 19: 60T0 269 

了 下 抽 工 条 22 站 代 -的 520: 60T0 260 
台 币 工 箱 22 站 代 -20538: 60T0 268 


》 
》 
》 
》 
》 
》 


吕 S 立 同 卫 柯 v 


“FE 


= 日 亲王 名 二 


十 坟 庆 而 二 vv 上 





199 中 币 工 休 22# 人 = 395 和 :60T0 268 
2 的 中 抽 工 亲 22* 人 - 抑 )50: 60T0 260 
210 耻 侧 工 条 22* (TI - 50)60: 00T0 260 
220 职 币 工 条 22*# 人 -00)70: 00T0 260 
238 路 出 工 条 22 并 -了 898: 60T0 260 
248 职 抽 工 条 22# 人 -部 )99: 60T0 260 
2 中 出 工 条 22 并 -97180: 60T0 260 
206 全 AT 

278 END 


288 REM IULTE ShePE 
298 $ = 24576: RE FIRST RDDRESS IF SHfPE T 
fpLE 

388 1 = JNT (S7 256):92 = $ - 人 1y 256 
319 PKE 232,S2: PKE 233,S1 

328 琵 妈 Nek = 人 REN SH9PE DEFINIT NUMBERS 
338 POKE SN PKE S+ 40 

3 和 =S+24 作 +:32=S+2 
3500 = - 

368 IF ] 》255 THEN 399 

379 PKE $2D: PKE 32 + 78 

389 60T0 4 

399D1 = JINT (7 256):02 = - D1* 256 
4 PKE S202: PKE 2 + 1 

1803 =32+2 

428 RE 了 和 

438 下 和 = 8 THEN 508 

448 RERDB 

450 下 8 = THEN 498 

469 = 了 *# + 

4 POKE 了 b% 必 = 首 + 

488 60T0 428 


+ | 


499 POKE 人 人: = 
和 = 人 + 1 


508 POKE 负 8: 
5 地 kK=k-1 
526 下 K=8THN RETURN 

536 60T0 358 

548 了 玖 f 六 

990 的 让 和 68862268 RE 

560 了 殉 信 66 1 人 人 8 RE 人 

5810 的 表 9 和 人 3 六 25， 5950 03 六 3 
12)9)8) 50007365 1 5 8: REN 和 ” 

58 隐 育 提 呈 和 人 2 六 放 广 72701527 六 六 0 
0 入 间 

5 遇 现下 5 3603 25)1， 
于 

8 捕 表 请 可 9527 3， 65，1p 3 7 275 5， 1 
站 

Ri 六 访 和 和 08 

bo 静 扩 二 306572572758: 


| 


838 区 扩 69 和 60636368 
bd 了 殉 育 生生 5 和 27 7 3 6 45,5， 5， 让 诊 
站 0 这 


p96 的 捕 2225500 5 022 7 36008: 
的 
Pb 阴 衣 222227108 和 
fg 隐 [ 朋 22022555 5 5 0- 
086 的 靖 2 2 2 0 有 
8698 和 16303636368:- 
7 确 T 有 生 555555 2 00606027 关 六 六 中 中 
是 利和 20363 68 人 

1 只 作 和 6666 人 75555 9758: RE 


中 
T28 从 搬 290)5)5)9，20,63 7 172 6 69， 
55955978 RE 2 

3 的 5 5 5 5 03727525 2003 7 
7848 :RE 3 

7g 阴 站 27572720)5) 96214054 和 
六 2 站 

758 了 萌 俐 55 5000 3 333 0,5,5 5 0， 25 866， 
63 7 六 975 8 RE 95” 

了 769。 的 5 6 和 3) 63)6)555,555,276,6,3， 
0 REH 0” 

779 的 T 朋 55575755 66 3) 6 3 636 36 58: R 
人 


多 站 四 9559795 00602003 PP 人 人 区 中 中 
有 95797433 人 人 8 RE 3 

『98 用 作 15552073 3 35， 22,5,5，5， 
3 RN 

8 区 让 222 02027087 

8 区 T 22 和 286 208 于 

828 了 胸 六 和 03030352 59520208: 


on 
8 的 让 225) 5 505002777778: 

8 0 
858 了 斑 前 29 0 55 52707 63 60362078 9 
398 玖 衣 259 0 5 5 56066000677 93 
华人 和 58660807 

8 有 玖 放生 15273 270060 5 11 中 
外企 2 人 2 人 和 

8 及 靖 559)9527 3 3 06516376 
昌 f2，979，9757 人 全 人 :8B" 


359 


360 


8 月 靖 攻 5， 955，2 人 02202526 37 778 人 人， 
人 人 

48 芍 讲 5 99 5， 266 6 全 63 7 77 
人 人 人 8 

910 区 人 D5，9) 563， 3 3 3 6655 556 373， 
3 0 55) 5 5 D78:"E” 

928 葵 人 9 95 9)5) 633 3 3 6 06,5, 5 5 6 3 3， 
606 8 FF 
936 了 殉 [ 955 502 12200007 3 中 
作 人 中 5 12 2)0 08: 0 
遇 8 及 放 6866656， 55 了 
2000P 7 性 
958 哺 作 也 9) 036 68072059 8 
968 听 f 和 1 全 000 和 63 
可 
979 的 [站 6 06666765 和 人 3 人 3 39， 
二 
9 和 珍 [ 有 人 666 的 60555555 8 
998 哆 人 间 66659 中 中 中 中 中 让 六 
2730 08 人 

968 人 6 人 5 人 人员 
320 668 

荔 协 了 斑 前 人 95902066063 PP044 
本 

1928 区 [ 59759795 27 人 0 人 六 让 人 0222 
1 37000008 P” 

1938 区 放 和 97552760 7 3 3 人 中 9222 
35 和 95633305 9 958 全 

40848 胸 T 5 95 527063 7 人 50222 
6657 人 人 

10958 了 殉 [ 站 和 9 D5 95727333 06 5 9500 


1 记 37 930 1 97957083” 

1068 月 前 55979703 9306066008T 
1878 NT 和 66606571 作 中 中 中 中 放 22 
12010102 有 六 站 
27305 
103008 

1090 区 6p6,65 9， 了 人 六 3 9 

人 中 作 人 人 人 人 和 人 

1100 的 人 D 人 2276 5527)3 
29 
了 
8 

1124 的 稚 99959072 7257， fb0,9,9 
1D) 98 2 


1138 区 [和 50660065 5 5 
1 27552， 52525208 

划 58 了 5506000067 广 8 
1 的 月 全 和 52925991 和 15 8 
1178 了 六 227222)29) 099 08 

1188 区 T 有 人 97279782” 

1198 区 T 有 272， 了 5 5957270777 记 六 270) 95)5 
50 人 人 8 

1280 NT 肌 0875， 全 5 972 937 3705 6 
1 人 3555 578: hb” 

1218 区 依 2159572773 93 6005 1 156 
1 六” 

1228 了 殉 衣 和 和 063 人 六 25911507 
10 1 和 5 613 和 

1238 及 Th 272 9 592 7 3 3 3 65 5)5)5)0 
0 15 95)82 6 

2 人 8 55273255 63 60060600 
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8 人 

1258 的 T 2 全 5 5 677 3 3 0515 07 
955 
1268 区 放 685， 1 59797207676 7 3 3 3 中 自 
098: 

12 人 9 DTh 二 63 25 6 60772555) 8 记 
12 信 了 脐 衣 生生 2 六 3 3 30 5,5， 
9 

12 和 0 了 腑 的 0 5 9 2 人 3 0)5 
站 
1308 及 人 h 9566， 
从 地 了 欧 前 六 2)5)9 
3 73 55 5， 
1329 随 1 2,2)5 1 
9 
1336 及 诊 放 
8 0” 
3 确 傅 25 和 55 2 7 3 3 7 05 1167 
133765) 5 523,3)33)6.6.68:" 

359 天 列 2155 07 .365 bbDD67 
四 

00 月 搬 020 59209733 Drbbypby8 


人 
人 2 19595072 606 方太 六 8 人 


3 3335b) 1 5 59,0)2 
上 让 让 666 1 人 45 


1399 用 2220666 5 5 和 和 7 和 4 
本 

区 用 02020600 人 和 人 人 人 和 
or 
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441 隐 朴 人 2509 5 和 3 4 
0 

428 阴 信 20985273 
人 

] 和 3 沪 殉 依 02666226 41575791 人 和 和 和 4 
05200778 

1440 了 从 00889500 3 036， 3 7， 2， 5,5)5 
9 987 

| 

二 9 和 且 朋 全 和 62606582” 

丽 f8 了 胸 请 和 9 9 27056 6 663 78 
8 的 表 2 本 

]990 了 殉 搬 20255376” 
99 了 Th 和 2737275 ,51 D5 0073 


人 


整个 程序 共 分 三 大 段 : 

小 10 一 270 句 : 是 主 程序 ， 运 行 后 光 调 用 各 个 造型 图 形 ， 
然后 利用 绘图 语句 在 屏幕 上 显示 所 有 造形 。 

2 280 一 530 句 : 是 造型 表 生 成 子 程序 ， 造 型 表 首 地 址 存 
放 在 第 二 页 高 分 辩 率 图 形 区 的 上 部 24576 地 方 ,对 应 的 十 六 进 
制 数 为 $6000。 

@) 540 一 1500 句 : 是 存 贮 造型 图 形 的 数据 区 。 540 句 
DATA 中 的 96 是 造型 个 数 。.550 句 以 后 每 一 个 DATA 语句 
存 贮 一 个 造型 数据 〈 以 八进制 数 表 示 ), 并 以 造型 结束 符 8 作 

狂 
全 志 琶 二 
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注 灿 文 说 明 。 关 于 它 的 使 用 实例 见 计 算 机 辅助 教学 。 
3 计算 机 辅助 教学 〈 绘 电路 图 ) 


这 里 介绍 一 个 绘制 电路 图 的 实用 程序 H94， 它 可 作为 电 
子 线路 教学 的 辅助 演示 ， 是 计算 机 辅助 教学 的 一 种 尝试 。 

利用 中 华 学 习 机 高 分 辩 率 作 图 功能 ， 可 以 绘制 各 种 各 样 
的 模拟 电路 和 数 ' 当 电路 原理 图 或 逻 和 辑 符号 。 利 用 造型 表 技术 ， 
在 电路 图 形 的 适当 地 方 加 注 元 件 参数 、 文 字符 号 .计算 公式 、 
布尔 表达 式 等 。 从 而 在 电子 线路 的 电化 教学 中 ， 做 到 图 文 并 
茂 ， 丰 富 多 采 。 

程 售 H94 共 画 了 与 门 、 或 非 门 、 或 门 、 与 或 非 门 、 蜡 或 
门 、R-S 触 发 器 , 共 发 射 放 大 电路 等 8 个 电路 。 实 际 上 ， 可 
以 以 本 程序 为 模式 ， 绘 制 出 各 种 各 样 的 电子 线路 。 此 外 ， 还 
可 以 绘制 程序 设计 框图 印刷 线路 板 等 。 

为 了 在 电路 图 形 的 任意 位 置 加 注 说 明 性 符号 ， 必 须 利 用 
前 节 介 绍 的 造型 表 (ASCII SHAPES)， 为 此 ， 应 安排 
以 下 两 个 语句 : 

POKE 232，0 

POKE 233，96 

这 是 因为 232 和 23 3 两 个 单元 是 专门 用 来 存放 造型 表 首 地 
址 的 。 

从 前 节 程 序 中 知道 ，AS CIT[ 码 造型 首 地 址 是 十 进 制 数 
24576， 对 应 的 十 六 进 制 数 为 $6000。 P OK 下 232 后 面 应 放 
造型 表 首 地 址 的 低 字 节 〈 十 进 制 数 ), 所 以 是 0 POKE 233 
后 面 应 放 造 型 表 首 地 址 的 高 字 节 (十进制 数 ) 96，96 是 十 六 
进 制 数 60 的 十 进 制 数 表示 。 
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只 有 这 样 ， 将 图 形 表 送 入 内 存 , 并 将 其 首 地 址 记 入 232 和 
23 3 单元 中 ， 上 节 造 型 表 才 能 使 用 。 
另外 ， 为 了 在 电路 图 的 适当 位 置 加 注 说 明 性 符号 ， 本 程 
序 中 安排 了 诸如 X$=“P”:XZ=110 YZ=0:GOS UB 
1810 等 语句 。 这 个 意思 是 在 坐标 (110 ,0) 的 位 置 上 ， 标 上 
字符 “了 P”% 1810 以 后 的 语句 ， 是 计算 机 自动 给 出 X$ 中 的 字 
H94 在 120 一 150 句 中 安排 了 总 控 ， 而 在 1700 一 1800 句 安 
排 了 是 否 要 打印 的 控制 ， 如 要 打印 按 “Y” 键 ， 不 需要 打印 
空格 键 。 
程序 输出 打印 既 有 图 形 ， 又 有 英文 注释 ， 既 有 布 不 表达 
式 ， 又 有 中 文 汉 字 的 说 明 。 
程序 H94 运 行 方 法 是 ; 
。 首先 运行 造型 表 ，RUN ASCII SHAPES ” 稍 等 
片刻 ， 出 现 ASCII 字符 表 ， 按 CTRL-RESET 中 断 。 
。 调 进 计算 机 辅助 教学 〈 绘 电路 图 ) 程序 ， 并 运行 之 。 
“。 出现? 后 ， 键 入 1 一 8 中 任 一 个 数字 ,计算 机 自动 绘图 ， 
键 码 代号 如 下 : 


计算 机 本 有 才学 (人 电路 图 ) 
|。【 与 五 一 全 高 出 高 ， 有 性 出 估 】 
2 或 非 [电路 一 有 高 出 佐 ， 全 作出 高】 
3，【 吉 站 电路 一 有 高 出 高， 全 低 出 居 】 
4、【 呈 非 站 电路 一 全 襄 出 低 ， 有 作出 高】 
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5。【 与 或 非 门 电路 一 先 与 后 或 再 非 】 
6。【 异 或 门 电路 一 不 同 出 高 ， 相 同 出 低 】 
7，【RS 一 般 发 秋 】 

8 【电流 负 友 馈 电路 】 


。 出现“DO-YOU-WANT-PRINTI(YVN) ”后 , 若 
要 打印 ， 按 Y 键 ， 反 之 按 入 键 或 空格 键 。 

若 将 程序 中 POKE1913，2 改 为 POK 开 1913，34 ， 则 
打印 反 相 图 形 ， 如 图 9.8。 





【 电 尝 负 及 司 电 路 】 
图 9.8 
“ 按 9 ， 停 机 。 
计算 机 辅助 教学 〈 绘 电路 图 ) 清单 ( 见 H94) 及 运行 结 
果 ( 见 图 9.9 一 9.16): 
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]HST 


7 RF 必 H 和 
5 及 9 1 
1 REN 计 宅 机 辅助 教学 (经 电 路 图 》 
如 匡 村 午 ( 刘 ) 
3 FRI 1T08 
井 RE 各 航 了 
958 NEXT 了 
PKE 2320: PRE 233， 9 
8 JR 【本 到 光 -全 高 册 训 有 狼 出 会】， 
或 间 [ 电 用 有 高 出 低 ， 全 估 岂 高】 
ta 
与 非 电路 一 全 高 出 低 ， 有 区 出 高 】 
的 【与 或 失地 获 一 移 与 后 或 再 韭 】， 【 
一同， 
10 DT 【RS 一 般 发 器 】，【 电 流 负 反馈 电路 】 
1 PURE 232,6: PURE 2337 06 
2 TINPUT 
38 下 交 =9THEN ED 
1 胸 关 6DSUR 0 280 03 和 9 2 3 
200 098 
150 60TU 友 
1 HER2 :HDLOR= 3 
1 HPENT 1868 有 158 
从 PE 59858 有 二 8859 TO GT 有 5 
190 T0 58,50 
198 HPLOT 8 188 T0 8 150 
2 扣 HPLOT 49 100 TD 149 158 
2 和 8 种 = PP: 妇 =18Y2 = 人 00SU 18 
200 种 = = 人 0Y2 = 155: 009 锐志 
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2 的 淹 = 了: 人 = 0:Y2 = 155: 60SUB 抬 细 
2408 癌 = “RND-CIRCUIF:N2 = 全 :Y2 = 站 :UNU 
了 1910 

2008 灶 = 了 -了 :人 = 20Y2 = 细 : 0 且 多 儿 
200 6009 由 1700 

218 RETURN 

288 HGR2 : HCLR= 3 

298 HPLUT 110:8 T 110,44 


]HST380y 


3 削 抽 = 2 = 12 = 人 :60SUB 1810 
3 地 HPLOT 50,59 TU0 17050 T0 170 108 和 99， 
19 7 965 

328 HPLIT 和 19 T0 8 156 

330 由 tf 140, 10 T0 140, 150 

3 各 痢 = 1102 = 00 县 二 地 


3 质 = = 10Y2 = 8609 有 夫 二 

308 咒 = 和: 双 = 和 Y2=155: 00 雹 地 

3 了 9 质 = 2 = 2Y2 = 155: 603 妥 1 夫 
388 各 = PN 了 :和 = 2 = 20: USUR 
细 HPLIT 宛 夫 有 598 全 

8 燥 =NOR-CIRCUIT :2 = 人:Y2 = 的 :0SU 
R 反 押 


4 60SUR 1 后 

426 RETURN 

和 放生 作 如 = 3 

上 dm HEBEIT 1 信和 有 54 

上 8 HPLOT 8889 下 放下 5， 
1 5958 

8 HPLOT 疤 丰 好 | 

中 8 HPLOT 1 188 有 1 196 


488 HPLIT 186,75 T0 1 

498 HPLOT 1b78 TD 119,9 

5 站 = := 118:Y2 = 0: 60SU8 1819 

5 地 由 = 和 :2 = 86:Y7 = 155: 60SIB- 拘 所 

5 = 97 = 5: 60SUp 1 

说 = “ 限 -CIROUIT :人 2 = 瑟 :Y2 = 人 5: 60SW 
攻 寺 

5 和 8 将 = "PH :2 = 20:Y2 = 和 : 60SuR 井 志 

550 60S 有 176 RN 

569 RETURN 

578 HSR2 : HCOLIR= 3 

598 HPLOT 188 TD 199 

598 HPLIT 408) 和 12 和 和 1258 TO 

从 和 

久 LT 5 TD 7 TD Tb 180 T 5 

198 T 530, 

6 放 RPLOT 830,198 TD 80, 150 

528 HPLIT 148,198 开 和 ,1 

03 站 = = 1 = 60SUB 

卫 关 = 5: 60SB 的 

卫 中 = = 0922 = 5: 60SU 甸 

669 站 = NI-CIRCUT :和 2 = 天 :2 = 本 :60 

晓 霹 人 

6 站 = 82 = 29:Y7 = 季 : 60SUR 欠 包 

899 HpL0T 38,18 和 5 多 

5690 6 70 

7 抽 RETURN 

?18 HBR2 : HCOLBR- 4 

7 和 HPLT 8 末 118, 折 

7 和 证 1 

: 允 捧 
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7 和 玫 LT 55 和 5 和 矶 区， 
1 的 T0 85 

7 PIT 各 削 下 和 的 有 55 
56 7 5 1 的 

768 LT 1 100 再 1 15 

778 HPLIT 79,159 TD 7 1 

788 司 交 ,158 有 和 17 

798 HPLE il50 T0 139, 170 

生 LT 庆生 

8 HPLIT 196,75 TD id,75 

8 PUT 179 TO 110,88 


830 盾 = 下 = 18 = 和 COSUE 谷 记 
8 0 

858 六 = 2 = 90:Y2 = 175: 60SUB 1810 

8 各 = = 130:Y2 = 175: 009 1810 


8 澳 = = 150:Y2 = 175: 6009UB 110 
8 冰 = “NOR-CIRCUIT :2 = 10:YZ = 如 :60 
好 属 二 

890 澳 = 下 = 名 tCD:N2 = 20:Y2 = 20: 00 有 协 
地 

388 HPLINT 38.18 TO 63 18: 60SUB 1700 

9 人 RETURN 

926 HoR2 : HOCOLOR= ? 

938 HPLOT 1108 TO0 11056 

948 HPLOT 90858 TO0 17658 T0 179188 T0 50， 
108 T0 90)50 

984 HPLOT 8 198 T0 8 158 

966 HPLDT 得 8 1 的 T0 140 158 

9f@ HPLIT 4898,75 有 1475 

3 HPLIT 1 TO 1 和 

998 HL 有 搬 ,65 天 1bps 下 攻关 下 换 


:0 下 二 ,0 
1880 总 = “EN 中 -TIREUIET 2 = 人 2 = 部 : 遇 
好 从 所 
押 志 60SUB 1780 
1028 FTURN 
1038 HoR2 : HDLOR= 3 
048 HPEIT 8 26 T0 758 
1958 HPLUT 1628 T0 15050 
9868 PP 5858 下 1636 了 1610 有 30 
0 下 9058 
1f8 HPLOT 78) 198 T0 78, 1 
1889 HPLUT 158 199 T 156 1 人 
1898 HPLOT 110 108 T0 110,167 
1 部 HPLUT 1094 10 010,95 TU 110， 106 
区 HP ,149 有 21 
1120 HPLT 08 1 有 09149 有 72 和 9 有 玫 
03 天 的 ,193 
1138 HPHUT 148 499 70 人 2 145 到 4192 149 帮 
9 有 152 53 
1146 HPLOT 攻 8 199 TU 1 83 
1158 HPLUT 19041798 T0 108 176 
1108 HPLOT 104 48 有 1901 TO 1 17 
1f9 HPFLOT 148， 499 TO 1 1 
1488 HPLOT 你 Ti iT 
1i0:174 
1 邮 昌 T 拘 :68 用 7266 T 7 的 有 的 的 
TU 6080 
12 反 外 作 下 
2 多 HPLUT 所 864 有 92 下 4268 列 刘 
8 08 日 148: 的 
1228 HPLOT 9857 天 152,57: HPLUT 9864 
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8 4 

1238 对 = "R-S-FLIP-FLDPS :并 = 的 :Y2 = 条 ; 
6 有 寺 志 

1248 80SUR 全 增 

1258 了 ETURN 

1268 HGR2 : HCL 吕 = 3 

1278 HPLDT 7 志 T0 和 3 

了 3 PLDT 的) 黎 再 队 秆 再 认 二 再 他 剖 
更 的 入 


昌 星人 
1 


下 用, 扔 

扩 志 ET 90 有 的 天 

1328 HPET 2800 机 撮 :608: HPLGT 9 TU 1 
]0,60 

1338 HPLUT 生 ,89 到 向:65: HPLUT 58 1 
?6 

13 和 HPLUT 52 和 08: HPLOT 区 o8 
和 2852: 有 六 608 TO 2068 

1358 有 PIT 0 的 天 二 才 02: HRPLOT 1228 的 
和 

1368 HPLOT 12868 下 12878: HPLOT 1 了 
和 22 有 2 

416 PEOT 1 相 120 1 多 

3 将 本 872 3972 用 139,69 

13908 HPLOT 2 用 区 部: HP 2 
1 138 ,9 

4 将 LT 839 下 和 1 

区 HPLOT 28) 118 TQ 2 包 

1428 HPLOT 7 提 T0 2 记 

1438 HPLOT 12858 T0 128 遇 


和 2 
8 相信 邮 

1998 HPLOT 12820 有 128 1 

提 88 首 ET 8 有 9 HPEOT 
1 4808 

扯 牛 RE 9 入 下 划 95 

1 HPLT ie 和 下 守 8 加 

所 ET 89 下 168 

和 9 交 HPEOT 8 天 1268 TO 1725 相反 
8 in8,6n 


扫 放 部 L9T 89 到 1 后 
1520 种 = ”02 = 和 = 5903 归 馈 记 
3 可 = 0 人 2 = 的 有 这 地 


: BUSUE 信介 
全 50S 且 所 所 


『 
558 从 = ”和 六 
咎 : 603 有 R 培训 
可 
人 


968 短 = 《全 : 沪 
昌 人 8 淖 = RMZ 


一 <- 一 -<- 一 c- 六] ij 站 | 


-Tv ra rr TI 


了 69SHR 镶 声 
0 失声 
入 :09 的 1 
3 OOSUE 全 地 
:0USUE 铬 霹 
和 DUSUR 说 声 
: 中 论 记 

60SUE 霹 纪 
SB 的 二 


ee 


6680 对 = “2 人 2 
ji A = “Re :AZ 
jp28 炳 =“[e" :AZ = 
1f38 癌 = RN = 
1640 涡 = “+EC :AZ = 
:各 = WO = 
1p88 HPLOT 17295 下 2 

1068 壮 = 01 = 214Y2 = 烛 :60SUE 过 包 
匠人 午 = 0 SR 记 
1888 bsUB 1 

jpg RETURN 

68 对 =“ 鸭 -Y 的 -RNT-PRINTYN :2 = 126: 


FT 一 上 Tr~JT~- 


一 < 一 < --<- < 一 人 : 


到 
3 CT 
号 一 : 
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= SR 二 

直人 了 

持 关 各 = “YOU-NRNT-TT-PRINTIYAN :7 = 了 
YY7 = 2 COSUR 倍 所 

3 GET 前 :下 名 = 腿 蚀 = ”THEN 
TEXT : HOME : PRINT “600D BYEI": RETURN 
1746 下 部 人 >" THEN PRINT CHR 《7 
RETURN 

1758 IFX=S8THEN 1778 

1768 HCOLDR= 8: 台 = “TD-YOU-RNT-FRINTIYAN) 
“22092972 = 35: 60SU 放 包 

1778 PRR 1 POKE 1913,2 

1788 POKE 1913)2: PRINT CHRS (7) :PRH 
1798 PR 3: PRINT : POKE 1659,5: PRINT T 生 
上 8 损人) PDKE 4659,8: TEXT 

1868 RETURN 

18 旨 ROT= 8 次 = LEN 下 宫 =3THEN 
冯 = 跑 -1 60T0 18 抽 

1828 正典 =2THEN 之 = 只 -60T0 8 
1838 汉 = 吧 -3 

1848 F 妥 1- 有 典 -1 扒 = 秀 C (从 咕 
(和 灶 + 人 人 -3: 机 的 条 知 + 了 # 让 
Y: ET IT RETURN 

1988 PRINT : PRINT : 外 IMT 

1958 PRINT “" 计 和 机 辅助 教 池 ( 兰 电 路 图 ) 

1978 PRINT :PRINT 

2886 pcRTNT “1 【与 门 电路 一 全 高 出 高 ， 有 佐 出 


2854 PRINT : PRINT 二 
2100 PINT “2 【或 非 门 电路 一 有 高 出 低 ， 全 佐 


2158 PINT : 了 JI 
人 限 JNT “3.【 或 门 电路 一 有 高 出 高 ， 全 旗 出 
和 ] 

2259 了 INT :PRINT 

25300 也]JNT “4 【与 非 门 电路 一 全 高 出 会， 有 低 
出 高 ] ” 

2359 了 IMT : PRIN 

了 【民族 一 先后 或 再 非 


2458 PRINT :PRINT 
Ri 


2556 PRINT : 耻 I 

2688 PRINT [要 
2659 PRINT : 

2786 PIT [所 
2756 PRINT :PP 

2868 RETURN 
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RND-CIRCUIT 





【与 | 电路 一 全 高 出 高 ， 有 低 出 低 】 


图 9.9 
己 


F = 月 二 下 







二 
人 品 民 一 CIRCUIT 


【或 章 门 电路 一 有 高 出 低 ， 全 低 出 高 】 


图 9.10 
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十 
癌 尺 一 记 工 RCIT 





图 9.11 
F 


MHRMHD-CIRCUIT 





【 非 站 电路 一 全 高 出 低 ， 有 低 出 高 】 


图 9.12 
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己 
P=PhR+CD | 


十 
内 MDR 一 CIRCUIT 






【与 或 非 站 电路 一 先 与 后 或 再 非 】 
图 9.13 


巨 总 折 R 一 CIRCUHIT 





【 异 或 | 电路 一 个 同 出 高 ， 相 同 出 低 】 


图 9.14 


及 划 


R-S-FLIP-FLDPS 





【RS 一 侧 发 器 】 


图 9.15 





【电流 负 友 局 电路 】 


图 9.16 


4. 全 屏幕 绘图 软件 


下 面 介绍 的 是 一 个 实用 的 全 屏幕 绘图 软件 ， 其 特点 是 : 
“ 用 有 关 按 键 控制 光 点 移动 方向 ， 进 行 绘图 或 写字 。 图 
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象 水 平 的 高 低 ， 由 操作 者 的 绘图 技术 决定 。 

。 使 用 简单 ， 操 作者 可 以 根据 中 文 菜单 提示 ， 进 行 各 种 
操作 ， 只 要 稍 事 熟 悉 即 可 运用 自如 。 

“ 删改 灵活 ， 画 的 不 满意 的 地 方 ， 可 以 随意 控 涂 更 改 。 

“ 存 贮 方便 ， 完 成 或 尚未 完成 的 作品 ， 可 以 随时 存 贮 ， 
使 用 时 可 以 方便 地 调 出 ， 或 继续 完成 ， 或 打印 输出 。 

“ 打印 多 样 ， 需 要 打印 的 图 案 ， 有 四 种 方式 选择 :正常 、 
放大 、 反 相 、 反 相 放 大 。 

“ 既 可 以 随时 擦 涂 全 部 图 象 ,也 可 以 在 屏幕 上 保存 图 象 。 

使 用 方法 : 

“ 运行 本 软件 后 ， 即 出 现 以 下 中 文 菜单 ， 菜 单 上 详细 注 
明 各 种 按键 的 作用 ， 如 按 Y 键 ， 光 点 向 左上 方 移动 并 作 图 。 
控 涂 先 按 0 键 再 按 其 它 键 ， 恢 复 画 图 先 按 L 键 ,再 按 其 它 键 。 


全 屏幕 绘图 软件 

Y 一 左上 G 一 左下 
B 一 右 下 H 一 右上 
I 一 向 填 M 一 向 下 
K 一 向 右 本 一 向 左 
L 一 画图 O 一 氛 图 
C 一 清除 T 一 保留 
S 一 存盘 A 一 调 盘 
W 一 打印 下 一 结束 
按 空格 键 运行 


.菜单 出 现 后 , 按 空格 (S P AC 正 ) 键 , 即 出 现 一 个 沿 屏 
幕 边沿 的 方 框 ， 光 点 在 屏幕 正中 央 闪 烁 ， 表 明 进 入 绘图 
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状态 。 

. 画 好 图 象 后 ， 按 S 键 ， 屏 幕 提出 “请 输入 文件 名 风 此 
时 输入 文件 名 〈 例 如 C -F ) 并 回 车 后 ， 机 器 一 面 自 动 存盘 ， 
一 面 给 出 “正在 存盘 ， 请 稍 等 ……?” 的 信息 ， 存 盘 完 成 后 ， 
机 器 提示 “存盘 结束 %% 可 以 进行 其 它 功能 操作 。 

。 调 出 图 象 只 要 按 和 A 键 ， 机 器 立即 提示 “请 输入 调 出 的 
文件 名 :”% 此 时 输入 文件 名 并 回 车 ， 机 器 一 面 调 盘 ， 一 面 给 
出 “正在 调 盘 ， 请 稍 等 ……” 的 信息 ， 调 盘 完 成 后 ， 机 器 也 
会 打出 “ 调 盘 结束 ”的 信息 ， 再 进行 其 它 操作 。 

. 在 绘图 状态 下 ， 任 何 时 刻 按 C 键 即 可 清除 画面 ， 并 重 
新 进入 绘图 状态 ， 原 图 象 丢失 ， 按 下 键 ， 清 除 画面 ， 重 新 进 
入 绘图 状态 后 ， 原 图 象 保持 ， 按 下 键 结束 停机 。 

“ 打印 图 象 按 W 键 ， 有 四 种 方式 ， 按 1 是 正常 打印 ， 按 
2 是 放大 打印 ， 按 3 是 反 相 打印 ， 按 4 是 反 相 放大 打印 。 每 种 
打印 方式 都 是 先 按 W 键 再 按 数字 键 。 图 象 打 印 完成 后 ， 机 器 
给 出 “ 硬 找 贝 完 成 ”的 提示 。 

下 面 给 出 完整 的 程序 清单 ( 见 H95) 及 运行 的 图 象 实例 。 

《本 软件 适应 机 种 : 中 华 学 习 机 、APPLE 机 、 紫 金 I》 


]LST 


5 REM H95 
18 REN 全 屏幕 终 图 软件 

28 HR 澡 = 1q8: = 的 :于 = 

3 和 9 PRH 3: 妥 INT : HI 

蝎 60T0 180 

噶 限 INT CHRS (1) 

的 VTRB 1: HTRB 1: PRINT “全 民 幕 给 图 软件 " 
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外 2 了 INT “YY 一 左上 ”3 HT 和 25: PRINT 
由 区 和 限 INT 骂 一 在下 ": H 秀 25: PRINT 


一 直上 
由 1 职 INT “一 向 上 "本 : 册 角 25: PINT 
省 一 
部 册 部 2: 限 INT 全 一 疝 丰 生 册 名 25: 职 环 
T 一 问 左 " 
j 功 H 邹 2: PRINT 中 一 画图 ;HTRB 25: PRIN 


了 一 


人 H 委 2 PRINT 《一 清除 " 肌 邹 25: 疏 闽 
下 


区 呈 PRINT 一 存盘 "HT 邹 28: 卫 羽 
T % 一 

| 申 市 名 冯 避 IN 员 一 打 乓 : 贞 印 2: PR 
| 

158 员 角 地 : H 郁 10: PRINT ' 控 空格 键 运行 ”; 
69 ETE: 于 =” ”THEN RETURN 

1r8 60T0 168 

188 003UF 5 

198 00T0 398 

2 哆 由 = PEEK -= 1038: 正则 >》4127THEN 
各 = CHR 轩 - 128) POE - 10603680: 60T0 
2 人 


化 
2 地 HPLOT 和 %Y HCDLR= 和 HPLOT 罗 Y HGLIR 
2280 开 融 = 写 TEN HPLOT 加 Y 
238 的 则 28 
2 四 下 钥 = 用 THEN 608 
298 下 前 = 了 艰 握 = 了 腿 各 = 于 限 
般 = 了 THEN 60SUR 739: 的 下 348 
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2 


下 前 = 和 腿 挤 = 全 " 限 钥 =" 节 


般 = 人 THEN 0 610: 60T0 348 


21 下 乱 = 邱 ”THEN HE : TEXT : PR 3; 
PRINT : HOME :: PRINT CHRS《 铭 ): EN 

和 下 的 = "THEN 入 

29 下 扔 = “T THEN 3 掀 

淘 下 名 =“S” THEN 4 

3 介 下 各 = 业 THEN 5 

入 下 前 = 了 腿 的 = THENB= 角 :6 
0 350 

3 和 REL -9 60T0 200 

3 的 = 阴 

列 开路 = THEN HPIOT YY: 60TD 288 
PUTWY F 限 1=1T5 EXTI HDL 


束 = 生 部 避 TXY 


3 全 
3 
398 
人 8 
和 地 
428 
和 让 


HDLDP= 3: 60T0 268 

Ppk 3 PRINT :HOME : 903UE 958 
PUKE - 103000: PDKE - 16302:0 
psSUR Fras p0TQ 260 

PR 3 外 INT :HU 

INPUT “请 输入 存盘 的 文件 名 :”: 
CNLL 和 3 的 9 


人 了 = CHR (4) 


和 8 


VTS HT 2: PRINT "正在 存盘 ， 请 精 


9 RHNT 融和 SRWE N， 7 有 2888, 1$2800 
3 2 PRINT “存量 结束 ” 
FF 阴 工人 2608: NENTT 


pb0TU 398 
PR# 3: PRINT : HO 陇 
VTRB 5: HT 全 2: PRINT “请 选择 打印 方式 :1 


383 


一 正 相 ;2 一 放大 ;3 一 反 相 i4 一 反 相 放大 ” 

528 作 T 由 

5 和 正 风 = 人 THEN PR 1 PKE 19131:P 
RNT CR CT7): PR 8: 65005800 

5 和 8 正如 = "THEN PPh 1 PKE 旬 13,65: 
pRINT 《HR 《17) PRH 9: SOT0 58 

554 下山 = 3" THEN PR 1: POKE 1913,33: 
PRINT CHRS 《17》: PRH 0: 60T0 588 

566 下 峙 = 中 THEN PP 人 PKE 1913)97: 
限 JNT CHRS (7 下 60T0 580 

578 60T0 93 

588 pg# 3: PRINT : 困 豚 协 : PRINT “ 确 指 贝 完 


598 F 工 = 荆 TO 1480 化 X 
8 00 3 肖 


8 下 般 = TENY=Y -上 RETURN 
p28 正 生 = THNX= 关 -全 RETURN 
6 下角 = 屎 THENX=YXY 全 TURN 
pn 开 角 = 让 THNY=YY+T EREIURN 


838 卫 4 3: PRINT :，HO 防 
Ba INPUT "请 输入 调 出 的 文件 名 :”; 疹 

6 0LL 993689 

688 县 5: H 扣 2: PRINT "正在 调 盘 ， 请 精 等 
699 PRINT CHRS 人) “8LD6D”; 几 

768 名 8: HT 2: 限 INT“ 调 一 结 东 ” 

7 甸 FIRI= | 和 2668: NEXT 1 

728 60T0 399 

7 和 8 正 锅 = YY THENX=X -YY -人 
ET 

7 和 下 的 = ”THENY =X -tyY+1R 


384 


ETURN 

758 下 振 = "8 THENXN=X+1Y=Y+ 1 R 
ETURN 

768 F 般 = THENXN=XY+ YY -人 
ETURN 

78 HRLIR= 了 HPLOT 6 0 21799 下 219,19 
1T08491T08.0 

188 RETURN 


]LIT 


1 REM H96 

20 POKE 232, 186: POKE 233)148 

3 SCRLE= 1 ROT= 8: HCULOR= 3 

作 HR2 

90 角 = EX=5Y=6 划 = 六 009UB 39 
6 


扩 的 = ”SCI CHRRRCTER TRBLE":X = 65: 6 
SUB 390 
7 HPLOT 520 T0 27020: HPLOT 35,5 T 和 


站 

好 的 = 328=8Y=24 600 有 390 
和 = 1L= 的 = 的 :6003 308 

] 的 的 = 和 8 3: 60SUB 398 
1 的 了 = 革 洛 = 68 603UB 366 

1 刊 = 92 8Y=52:00SUR 398 
1 本 = 2 的: 603 且 3 

1 得 乱 = 928Y= 64: 60SUF 398 
14J=318= 600: 00 有 300 

1 的 = 28Y= 8: 6003UB 390 
110J= 41 = 00: 60SUB 3600 

各 的 = 2 = 9 0609U8 398 


385 


19J=517= 060: 609 册 308 

288 的 =”82X=8Y=108: 6009 398 

21J=6tX = 00: 6009UB 360 

2080 的 =”92X=8Y=122:009U8 399 

238J=71X= 60: 00SU 368 

2 四 乔 = 102 =8Y= 136: 0603U8 398 

298 了 = 8 = 88: 60SUF 360 

2 罗 和 的 = 2 = 人 YY = 198: 003UR 329 
210J=9L=6X=60: 6003UR 360 

2 中 HPUT 5 178 TO 270 178 

28 希 = YUNTTQPRINT YN “六 = 
801Y = 175: 60S 则 39 

3 姜 肛 冰 : PRINT 到 :下 下 = 和 妆 中 = 
”THEN 形 厅 :0 贬 :PRINT “GDDERYET: 

PRH 8 

3 提 下 狂人 >》 Y THEN PRINT CHR (7): 
60T0 曲 

328 HDLOR= 68: 时 = “DO YOUWANT TO PRINT 
人 Ni = 175: 60SUR 398 

338 PR 1 PRINT CHR 和 《9 POKE 113，2 
3 和 PORNE 19132: PRINT CHR 《17)》 PRH 6: 
FRI=8Ti: PRIN CHRS 7) NEXT : 
乒 和 部 = 3 00T0 和 

394 STUpP 

308k = 人 FRI=JTOJ+rL-l 

318 了 R 抽 工 箱 + 从 半 本 YY= 基 二 1 NEX 
T 

380 了 ETURN 

3 F 了 工 => 人 :LEN 他 ) 

上 唤 捕 ACT 全 融 时 -3 打 
+ -人 ET RETURN 

386 











图 9.18 


5. 二 进 制图 形 表 


下 面 给 出 的 是 一 个 二 进 制 图 形 表 ， 共 有 95 个 造型 ， 它 和 
前 面 介绍 的 ASCII SHAPES 相 比 ， 有 一 个 十 分 显著 的 
特点 ， 即 运行 速度 特别 快 。 


387 


二 进 制图 形 表 的 起 始 地 址 : 35946($ 8C 6A)， 其 存 
贮 长 度 为 2454 个 字 节 ( $955)， 故 图 形 表 的 未 尾 地 址 是 35946 十 
2554=38400( 书 9600)。 

程序 H 96 是 一 个 调用 二 进 制 图 形 表 的 BAS IC 程序 ， 为 
了 正确 实行 调用 ， 在 程序 H 9 中 应 安排 : 

POKE 232,160:POKE 233,140 

操作 步骤 如 下 : 

“ CALL 一 1514 

“键入 二 进 制图 形 表 的 机 器 语言 并 存盘 ,文件 名 为 H97。 

。 键入 程序 H 96 并 存盘 。 

。 实际 使 用 时 ， 先 BLOAD H97 愉 ,后 RUN H96w , 立 
即 在 屏幕 上 显示 AS CII 码 造型 ， 若 要 打印 按 Y 键 ， 中 断 按 
CTRL-RESET 键 。 图 9.19 是 一 个 运动 实例 。 

]CARLL-151 

水 CC6ARA.95FF 


8C6R- 61 68 cq 88 D7 68 . 
8Cr79- ER 898 FD 68 186 61 23 81 


8CD6- 7 64 8D 64 he 684 B3 84 
8CD8- 5C6 84 D9 64 EC 84 FF -84 
BCE8@- 12 85 25 865 38 85 4B 65 
8CE8- 5E 65 71 85 84 8685 97 985 
8CF6- PR 85 BD 95 D8 8685 E3 65 
8CF8- F6 65 689 866 1C 866 2F 8686 


8D68- 
8D68- 
8D16- 
8D18- 
8D28- 


8D28-， 


8D38- 
8D38- 
8D46- 
8D48- 
8D56- 
8D58- 
8D66- 
8D68- 
8D768- 
8D78- 
8D88- 
8D88- 
8D98- 
8D98- 
8DRA9- 
8DhR8- 
8DB6- 
8DB8- 
8DC98- 
8DC8- 
8DD6- 


8DD8- 
BDE6- 
8DE8- 
8DF68- 
8DF8- 
8E6868- 
8E68- 
8E16- 
8E18- 
8E26- 
8E28- 
8E38- 
8E38- 
8E46- 
8E48- 
8E56- 
8E58- 
8E668- 
8E68- 
8E76- 


55 66 
AhR1 96 
ED 66 
39 867 
85 87 
D1 867 
13 689 
18 1B 
86D 1 
13 989 
1 869 
29 18 
13 69 
1F .17 
2D 1E 


.99 6D 


3F 17 
6D 1h 


89 6D . 


1F 13 
1 3B 
9D 6D 
98 69 
1 1B 
869 69 
13 29 
1 3B 
99 18 
13 69 
1h 66 
2D 1h 
33 89 
3B 13 
69D 1 
869 689 
1B 13 
99 1 
89 69 
1B 13 
1 1B 
899 69 
88 689 
18 3B 
89 69 
33 6 
3E 1B 
9D 1h 


389 


390 


8E78- 
8E86- 
8E88- 
8E98- 
8E98- 
8EhR8- 
SEA8- 
8EB6- 
8EB8- 
8EC6- 
8EC8- 
8ED6- 
8ED8- 
8EE6- 
8EE8- 
8EF6- 
8EF8- 
8F66- 
8F68- 
8F19- 
8F18- 
8F26- 
8F28- 
8F36- 
8F38- 
8F48- 
8F48- 
8F56- 
8F58- 
8F696- 
8F68- 
8F76- 
8F78- 
38F86- 
8F88- 
8F96- 
8F98- 
8FhA6- 
8FR8S- 
8FB6- 
8FB8- 
3FC6- 
8FC8- 
8FD6- 
8FD8- 
8FE6- 
8FE8- 


1 
29 
33 
1 
2D0 
13 
1 
29 
13 
1B 
689 
89 
3F 
2D 
99 
18B 
3h 
68D 
88 
3E 
2D 
13 
1 
99 
13 
1 
689 
13 
18B 
2D 
29 
1B 
89 
99 
1B 
3h 
9D 
06 
3E 
6D 
33 
3E 
2D 
33 
1 
89 
33 


8FF6- 
8FF83- 
9666- 
968688- 
9819- 
9618- 
96286- 
9628- 
96838- 
9838- 
9649- 
9648- 
96858- 
9858 - 
9668- 
9868- 
98796- 
9678- 
968868- 
9888- 
96898- 
9698- 
98hR8- 
968hR8 - 
98B8 - 
96B8 - 
96C8- 
96C8- 
96D6- 
96D8- 
98E8- 
96E8- 
968F8- 
96F8- 
9168- 
9198- 
9119- 
9118- 
9126- 
9128- 
9138- 
9138- 
91468- 
9148- 
9158- 
9158- 
91696- 


391 


9168- 
9178- 
9178- 
9188- 
9188- 
9198- 
9198- 


91h8- 
91h8- 
91B8- 
918B8- 
91C8- 
91C8- 
91D8- 
91D8- 
91E8- 
91E8- 
91F8- 
91F8- 
92606- 
9288- 
9218- 
9218- 
9228- 
9228- 
9239- 
9238- 
92468- 
9248- 
9258- 
9258- 
9268- 
9268- 
92796- 
9278- 
9288- 
9288- 
9298- 
9298- 
92h8- 
92h8- 
92B8- 
92B8- 
92C8- 
92C8- 
92D8- 


92D8- 


392 


96 -8D 99 3E 
18 3B 13 689 
89 6D 18 86 
13 69 29 1 
18 1B 33 2D 
2D 1 1B 17 
17 29 69 41 


1 89 699 69 
689 1h 3B 13 
13 69 69 1h 
1F 13 69 29 
29 1 1F 13 
89 8D 1h8 1F 
1B 13 869 689 
09 18 66 69 
899 69 18 1B 
18 13 2D 2D 
1h8 3B 13 69 
69 689 1h8 1B 
39 39 31 31 
2D 2D 28 296 
28 28 398 39 
38 38 39 39 
39 39 28 296 
26 268 38 36 
32 32 39 39 
33 33 868 26 
88 26 88 296 
36 36 38 38 
32 32 38 36 
38 368 268 26 
28 26 32 32 
33 33 39 39 
38 38 28 296 
286 26 32 32 
86 28 86 28 
39 39 32 32 
2D 2D 28 26 
28 268 32 32 
33 33 39 39 
38 36 28 28 
28 26 33 33 
38 38 368 38 
386 38 898 28 
86 26 88 296 
41 41 368 396 


33 33 38 38 


38 38 86 296 
88 28 86 28 
35 35 368 36 
33 33 36 38 
38 368 268 26 
28 28 33 33 
33 33 33 33 
38 369 26 29 
28 2686 32 32 
88 26 88 296 
39 39 32 32 
2D 2D .28 296 


28 26 33 33 


92E8- 386. 36 28 26 33 33 33 33 
92E8- 26 28 33 33 368 368 268 296 
92F86- 38 38 38 368 26 26 32 32 
92F8- 39 39 26 268 33 33 32 32 
9306- 28 29 32 32. 38 38 86 268 
9368- 88 26 89 26 88 28 88 29 
9316- 39 39 32 32 45 45 38 38 
9318- 2D 2D 26 268 33 33 38 38 
9320- 28 29 33 33 39 39 268 28 
9328- 33 33 32 32 26 28 33 33 
9338- 38 36 28 28 38 38 38 36 
9338- 28 28 34 34 35 35 26 28 
9348- 33 33 38 38 28 28 33 33 
9348- 38 38 88 268 89 28 88 28 
9350- 88 29 89 26 39 39 33 33 
9358- 33 33 38 38 2D 2D 28 298 
9366- 33 33 33 33 286 28 33 33 
9368- 36 398 26 28 38 38 38 3868 
93786- 28 29 32 32 38 38 28 296 
9378- 32 32 44 44 28 268 32 32 
9388- 36 39 268 28 33 33 33 33 
9388- 26 29 33 33 368 368 868 28 
9398- 88 29 88 298 88 26 88 296 
9398- 39 39 33 33 38 38 368 38 
93R8- 2D 2D 28 28 32 32 38 38 
93h8- 26 26 32 32 38 368 28 28 
93B86- 33 33 33 33 28 26 33 33 
93B88- 38 38 29 28 33 33 32 32 
93C9- 29 298 33 33 368 36 26 268 
93C8- 33 33 33 33 28 28 33 33 
93D6- 32 32 86 26 88 28 89 26 
93D8- 86 286 88 28 39 39 33 33 


93E6- 44 44 38 38 2D 2D 26 28 
93E8- 38 38 36 36 28 28 32 32 
93F6- 34 34 28 28 33 33 368 38 
93F8- 286 26 33 33 38 38 28 28 
94686- 33 33 33 33 28 28 33 33 
9468- 36 38 268 28 32 32 38 39 
9416- 26 28 33 33 33 33 88 29 
9418- 88 28 89 2 88 28 89 28 
9428- 39 39 34 34 31 31 38 38 
9428- 2D 2D 26 28 33 33 39 39 
9436- 26 29 32 32 44 44 28 28 
9438- 33 33 32 32 286 26 33 33 


393 


394 


9458- 
9458- 
94698- 
9468- 
9478- 
9478- 
9436- 
9488- 
9498- 
9498- 
94hR8- 
9488- 
94B8- 
94B8- 
94C8- 
94C8- 
94D68- 
94D8- 
94E6- 
94E8- 
94F8- 
94F8- 
9566- 
95688 - 
9516- 
9518- 
95286- 
9528- 
9536- 
9538- 
9548- 
9548- 
9558- 
9558- 
9568- 
9568- 
9578- 
9578- 
9588- 
9588- 
95986- 
9598- 
95h6 - 
9588 - 
95B6- 
95B8- 
95C8- 


32 
32 
386 
36 
896 
86 


86 


86 
388 
38 
88 
38 
88 
86 
36 
88 
88 
88 
86 
88 
86 
89 
FF 
Ch 
h9 
hg9 
986 
94 
86 
89 
4E 
686 
85 
28 
4E 
h9 
89 
28 
86 


16 


C8 
89 
16 
B1 
1B 
99 
26 


AR9 
2B 


1B 


28 


A9 


95 h9 1B 26 2B 


95C8- 88 B1 96 85 99 HR9 1B8 26 
95D8- 28 95 Rh9 18 28 2B 95 h9 
95D3- 13 26 2B 95 [C8 08 C8 [CE 
95E6- FF 95 F6 863 4C 6D 95 h9 
95E8- 86 9D0 4E 94 68 h2 6hR BD 
95F@- 4D 94 9D 38 94 CR D6 F7 
95F8- 668 h2 13 4C EF 95 986 26 






亡 上 上 民 户 万 TE 民 本 户 LE 








! 井 可 
来 十 一 人 怀 了 
孝王 = 
> 3 phphBrCrcDE F ES 
H IJKkKLM HH D PF AAA 
RSTAUMN HH TY zz 
六 了 二 引 上 二 本 马 
让 353hi jjkRh lm n oo 
F 中 rr <s YY 和 
二 妈 | 》 ”~ 沁 

下 

图 9.19 


395 


396 


附录 一 、 中 华 学 习 机 字符 区 位 码 


6161 

9166 ， 
6111 ~ 
0116“ 
9121》 
9126 了 
9131 】 
9136 人 
9441 人 
6146 
0151 了 
0156 
0161 > 6162 om 
6166 人 9167， 
bg1719 9172 扣 
60176 8 9177 好 
0181@ 0182 0 
0186 四 0187 A 
9191 ~ 8192 1 


0102 ， 
0167 
0112 | 
86117“ 
6122《 
8127 1 
6132 + 
6137 V 
60142 人 
0147 / 
6152 = 
6157 六 


8201 
6260 


68262 
0207 


第 1 区 


6104 . 
0169 六 
6114 
6119 ) 
8124 [ 
6129 
0134 = 
6139 卫 
0144 v 
0149 
8154 > 
8159 
6163 0164 8165 个 
6168 01697 017670 
0173 公 0174 艾 6175 始 
6178 妈 0179 支 0186 0 
81830 80184 0185D 


0103 ， 
0108 7 
8113 … 
6118 
0123 》 
60128〖 
6133 X 
0138 二 
0143 :: 
8148 和 
46153 叶 
86158 水 


8185 - 
8116 一 
6115? 
0126 《 
8125 | 
0136【 
0135 : 
8146U 
6145 上 
6156 
4155 0 
6166《 


4188 全 0189※ 8198 ~ 
8193 | 8194 = 

第 2 区 

0203 80204 8265 
60208 6209 0210 


0211 6212 8213 6214 0215 
0216 82171 0218 2 02193 6220 玫 
02215 02226 6223 7 了 62248 62259 
6226 位 6227 仁 6228 人 6229 人 6236 体 
8231 人 6232 人 0 9233 人 6234 候 -6235 人 
6236 人 6237 由 6238 他 9239 人 6246 俐 
0241 回 6242 6 6243 了 6244 人 的 9245 人 
6246 几 6247 作 6248 网 6249 几 0256 阅 
6251 打 0252 几 9253 所 6254 几 6255 后 
6256 印 62570 0258@0 8250@ 02600 
42019@9 0262@ 62630 60264@ 6026509 
8266@@ 0267 8268 682696 6274 日 
0271 自 6272 凶 6273 因 0274 因 0275 岂 
6276 欠 6277 内 6278 册 6279 0288 
6281 | 0282 中 9283 开 0284 区 9285V 
0286 由 8287 而 9288 帅 8289 区 0296X 
8291 认 0292 交 68293 0294 


第 3 区 


03811 6362 ， 0303 间 0364 了 8365 芝 
0366& 8307 ”0368 ( 9369 ) 8316 火 
60311+ 0312 ，8313 - 6314 .83195 7 
63160 317 1 8318 2 60319 3 6320 4 
63215 6322 6 0323 7 -63248 0325 9 
0326 ，8327， 0328<《 8329 = 0338 > 
0331? 6332@ 0333A 80334B 8335 C 
4336D 60337 已 6338P 339C 8346 HH 
0341[ 6342 1 0343K 0344L 8345 M 


397 


8340N 8347 0 6348P 0349Q 0350R 
0351S 0352 工 6353U 8354V 8355 驳 
0356 X 0357Y 0358 2 6359 [ 9360 和 
0361] 6362 ”8363 -0364、0365 a 
0360 b 60367c 0368 d 0369e 0376 
03719 0372h 0373 1 0374j 0375 人 
0376 1 6377 mm 0378n 0379。 0380 p 
838194 0382 0383s 0384t 0385 1 
6386 vv 86387 w 8388 x 8389 0390 2 
8391 { 0392 | 0393) 0394 


第 4 区 


0461 田 0402 为 0403 PP 0404P 0495 3 
6466 3 0407 天 8408 大 0489 轨 0410 者 
6411 办 68412 关 6413 支 -0414 才 9415《 
6416 人 6417 人 8418 作 8419 乙 0420 基 
6421x 0422 六 04231 60424 了 0425 广 
6426 才 0427 塘 6428 亡 6429 苞 9439 到 
0431 大 6432 烧 0433 方 0434 分 8435 5 
6436 2 6437 本 8438T 8439 仆 0448 
6441 世 0442 戏 8443 只 8444 由 6445 办 
6446 0 0447 这 9448 记 8449 这 6458 办 
6451 人 太 0452 矿 9453 训 0454 交 8455 训 
6456 人 6457 只 0458 飞 60459 蒜 0468 妹 
6461 永 9462 去 89463 双 0464 直 6465 幼 
8466 册 6467 世 6468 名 0469 由 0470 内 
6471 类 0472 火 0473D 6474 六 0475 有 


398 


0476 可 8477 人 0478 为 8479 为 8480 为 
0481 和 名 0482 记 0483 人 8484 0485 
0486 8487 0488 8489 649 
8491 6492 8493 6494 


第 5 区 


65617 6562 7 了 7 98506031 65641 6565 疙 
65060627 6507 工 909508 工 0509 才 0510 才 
6511 力 9512 力 9513 所 0514 革 0515 
6516 攻 6517 9518 芳 9519 3 0520 了 
0521 才 9522 人 89523 > 6524 学 6525X 
0526 码 0527 也 9528 世 6529 yy 6538 y 
0531 儿 0532 和 0533 拖 0534 瑚 0535 y 
0536 》 0537 y 8538 子 0539 序 6548 
0541 下 0542 才 9543 二 60544 又 0545 订 
6546 /7 .8547 入 8548 代 0549 必 8550 七 
4551 上 0552 忆 0553 7 0554 六 6555 也 
0556 人 6557 人 9558 和 6559 本 6568 求 
4561 求 6562 了 0563 S 6564 人 0565 > 
6566 扩 6507 六 0568Y 8569 工 0576 工 
0571 引 0572 习 0573 了 6574 儿 06575 履 
8570Y 6577D 0578 7 65797 60586 半 
6581 工 9582 子 86583 Y 8584 区 6585 力 
80258060 和 0587 0588 6589 0598 
0591 592 6593 0594 


0561 A 
6506 2Z 
6611 A 
6616 
6621 4 
0626 
6631 
0636 8 
6641 1 
0646 
66551 1 
6656 9 
6661 
6566 
6671 
6676 
0681 
6686 
6691 


9761 A 
0786 己 
6711 扬 
8716 0 


400 


4662 B 
8067 了 
6612 M 
8617 P 
6622 基 
0627 
0032 
06037 
68642 K 
06047 ( 
80652101 
86657 
4602 
8607 
60672 
0677 
0082 
0087 
6092 


6782 B 
0707 蕊 
8712k 
6717 


第 6 区 


8603 工 
6008 6 
6013 N 
6018 2 
0623 于 
6028 
0633 0 
0038 
8643 入 
0648 X 
6053 
0058 
8603 
60608 
8673 
66078 
8083 
0088 
66093 


第 7 区 


8703 B 
60768 采 
6713 也 
8718 P 


8604 A 
6669 1 
6614 3 
6619 工 
0624 马 
66029 
8634 8 
6039 1 
8644 
6649 pp 
0654 X 
4059 
6604 
80069 
8674 
0079 
0081 
6089 
60094 


8764 工 
0709 3 
8714 M 
8719C 


68605 忆 
06168 上 
8615 0 
0626 I 
8025 
6038 
6635 Y 
8048 8 
6045 Y 
8056 0 
8655 由 
8060 
8065 
8678 
6679 
0086 
0085 
8098 


8765 区 
0710 H 
9715 8H 
8728 工 


86721yY 
8726 开 
6731 3 
6730 
07141 
8746 
6751 8 
06750 有 
8f7b15 
8766 ? 
86771X 
6776 5 
06781 5 
8786 
0791 


88616 
80860608 
8811 
0816 
0821 
60826 
8831 
8830 

0841 力 
6840 3 


8722 基 
6727 耿 
6732 
60737 
0742 
60747 
6752 
6757 3 
6702 KM 
6767 ( 
6772 
6777 
0782 
0787 
67092 


60802 0 
0807 
0812 ji 
6817a4 
0822 1 
68270 
60832 
0837 3 
6842 大 
0847 厂 


0723 中 
6728 pb 
8733 用 
0738 
0743 
6748 
8753 
9758 1 
6763 8 
67608 T 
6773 1 
6778 pb 
6783 
0788 
0793 


第 8 区 


0863 1i 
6808 
8813 5 
8818 
0823 
6828 9 
0833 

0838 2 
6843 1 
6848 1 


6724Q 0725 1 
6729b 730 
0734 6735 

0739 60740 

6744 0745 

6749 a 0750 6 
0754 e 0755 8 
6759 让 0766X 
6764 0 0765 
6769 了 0770 由 
6774 严 0775 下 
6779 3 0780 0- 


0784 0785 
60789 0798 
8794 


0804 6 0805 
0869 60816 
8814 6 0815 5 
6819 68826000 
68240 08256 
0829 在 0830 站 
0834 8835 

4839n 68846 
8844 为 8845《 
8849《 8856 工 
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8851 由 0852 对 0853 己 
8085 十 8857 人 8858 二 
88601 切 6862 帮 0863 和 
88663 068675 0868 大 
0871 | 8872 义 6873 
0876 6877 0878 
0881 000820883 
0886 0887 0888 
8891 8892 6893 


第 9 区 


6981 6962 6903 

6986 | 6967 | 8908 -~ 
6911 ;8912 一 8913 一 
6916 r 6917 r 0918 rr 
60492131 609221 8923 3 
6926 上 8927 L 8928 1 
09314 8932 上 6933 上 
4936 上 9937 上 8938 上 
69414 8942 1 68943 
6946 1 8947 1 8948 工 
6951T 0952T 下 0953T 
0956 上 6957 士 0958 十 
64961 士 6962 上 8963 十 


0854 
6859 民 
0864 芭 
0809 
0871 
0879 
0884 
0889 
6891 


8964 一 
6909 -~ 
6914 | 
6919 
0924 上 
6929 1 
0934 十 
6939 上 
0944 
0949 开 
6954 下 
8959 二 
0964 十 


0855 了 
6860 记 
0865 3 
6087 从 
6875 
0880 
4885 
0890 


6905 一 
6910 ; 
0915 | 
0928 3 
6925 上 
6936 3 
6935 上 
6946 ] 
8945 
49058 下 
60955 下 
0966 十 
4965 十 


6966 十 6967 十 9968 十 969 十 0978 十 
6971 十 6972 十 6973 才 68974 十 9975 十 
6976 十 6977 十 978 十 9979 十 0988 


6981 
8986 
8991 


8982 
0987 
0992 


0983 
0988 
0993 


0981 
0989 
09914 


8985 
8996 
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附录 二 、 中 华 学 习 机 汉字 区 位 码 


1661 啊 1662 阿 
1686 喀 1667 京 
1611 铸 1612 艾 
1616 较 1617 氢 
1621 和 此 1622 兰 
1626 晶 1627 考 
1631 彰 1632 长 
1636 澳 1637 歼 
1641 取 1642 旬 
1646 技 1647 吉 
1651 坝 1652 蜀 
1656 柏 1657 百 
1661 薄 1662 种 
1666 扳 1667 最 
1671 扮 1672 捍 
1676 办 1677 绊 
1681 榜 1682 租 
1686 昕 1687 镑 
1691 息 1692 包 


第 16 区 


1603 斤 
1668 扰 
1613 得 
1618 安 
1623 脓 
1628 四 
1633 估 
1638 押 
1643 人 
1648 和 
1653 员 
1658 拱 
1663 其 
1668 顷 
1673 作 
1678 邦 
1683 绵 
1688 舍 
1693 襄 


第 17 区 


1604 换 
1669 总 
1614 爱 
1619 全 
1624 案 
1629 坟 
1634 奥 
1639 扒 
1644 郊 
1649 把 
1654 区 
1659 和 
1664 旭 
1669 板 
1674 久 
1679 帮 
1684 相 
1689 诗 
1694 旭 


1781 薄 1762 需 1763 保 1704 各 
1766 宝 1787 攀 1768 报 1769 暴 1716 揭 
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1665 收 
1618 东 
1615 散 
1620 按 
1625 舱 
1636 雪 
1635 蛋 
1646 队 
1645 巴 
1658 孝 
1655 白 
1660 歼 
1665 所 
1676 捧 
1675 半 
1680 元 
1685 鞍 
1698 首 


1785 倪 


1711 龙 1712 爆 1713 杯 1714 碑 1715 丰 
1716 捉 1717 北 1718 募 1719 背 1726 贡 
1721 钢 1722 倍 1723 狐 1724 备 1725 和 名 
1726 焙 1727 被 1728 春 1729 来 1738 本 
1731 策 1732 骨 1733 网 1734 示 1735 素 
1736 不 1737 进 1738 鼻 1739 曙 1746 比 
1741 凡 1742 笔 1743 和 后 1744 费 1745 车 
1746 藏 1747 毕 1748 芝 1749 感 1756 币 
1751 记 1752 兽 1753 闭 1754 瑚 1755 吏 
1756 必 1757 辟 1758 礁 1759 沸 1760 迁 
1761 队 1762 葛 1763 边 1764 编 1765 此 
1766 扁 1767 便 1768 变 1769 卞 1776 撞 
1771 罪 1772 振 1773 记 1774 标 1775 式 
1776 故 1777 未 1778 束 1779 苞 1786 别 
1781 间 1782 彬 1783 计 1784 小 1785 演 
1786 宾 1787 按 1788 兵 1789 冰 1796 本 
1791 丙 1792 和 村 1793 低 1794 俩 


第 18 区 


1891 病 1892 并 1863 了 于 1804 著 1895 措 
1896 技 1897 钵 1808 波 1899 博 1819 支 
1811 撞 1812 柏 1813 秒 1814 伯 1815 和 
1816 和 1817 吏 1818 得 1819 渤 1829 泊 
1821 求 1822 摘 1823 下 1824 畏 1825 补 
1826 增 1827 不 1828 布 1829 霄 1830 和 
1831 部 1832 怖 183 引信 1834 镁 1835 芒 
1836 村 1837 才 1838 财 1839 攻 1849 中 
1841 采 1842 彩 1843 菜 1844 获 1845 敌 
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1846 参 
1851 起 
1856 车 
1861 划 
1866 测 
1871 着 
1876 罕 
1881 华 
1886 怖 
1891 痢 


1981 声 
1966 和 疡 
1911 介 
1916 央 
1921 车 
1926 演 
1931 晨 
19436 衬 
1941 成 
1946 活 
1951 和 大 
1956 池 
1961 沾 
1966 乒 
1971 崇 
1976 路 
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1847 算 1848 残 1849 多 
1852 苦 1853 疮 1854 他 
1857 操 1858 糯 1859 模 
1862 出 1863 策 1864 全 
1867 县 1868 北 1869 揪 
1872 末 1873 查 1874 蔓 
1877 贫 1878 差 1879 冤 
1882 土 1883 换 1884 拓 
1887 次 1888 缠 1889 分 
1892 疾 1893 上 日 1894 多 


第 19 区 


1962 党 1983 常 1964 长 
1967 厂 1988 敌 1969 杨 
1912 超 1913 执 1914 煞 
1917 潮 1918 梨 1919 众 
1922 扯 1923 撤 1924 学 
1927 郴 1928 臣 1929 搬 
1932 忧 1933 沉 1934 陈 
1937 撑 1938 称 1939 城 
1942 虽 1943 和 对 1944 程 
1947 诚 1948 承 1949 昌 
1952 改 1953 疾 1954 持 
1957 识 1958 弛 1959 
1962 侈 1963 只 1964 表 
1967 烛 1968 充 1969 冲 
1972 宠 1973 抽 1974 一 
1977 碍 1978 雪 1979 筹 


1850 恬 
1855 治 
1866 曹 
1865 册 
1876 又 
1875 
1888 拆 
1885 暗 
1896 产 


1965 公 
1910 晶 
1915 朝 
1926 炒 
1925 机 
1938 全 
1935 挫 
1940 检 
1945 矢 
1950 届 
1955 昌 
1960 耻 
1965 项 
1970 由 
1975 划 
1986 仇 


1981 钢 1982 隔 1983 丑 1984 奥 1985 禄 
1986 出 1987 顶 1988 后 1989 医 1998 秆 
1991 1992 迎 1993 除 1994 嫂 


第 20 区 


2001 确 2902 依 2603 可 2604 搞 2605 全 
2066 处 2067 撕 2698 川 2609 穿 2610 梯 
2011 传 2012 遇 2613 了 2014 串 2615 完 
2616 窗 2017 翌 2018 床 2019 间 2628 创 
2021 忆 2022 傣 2023 接 2024 链 2825 委 
2026 春 2027 森 2028 醇 2029 居 2938 渡 
2631 纯 2632 豆 2633 发 2634 逢 2835 守 
2036 荡 2637 芍 2038 礁 2639 蔡 2840 邯 
2641 资 2042 词 2643 此 2644 刺 2045 明 
2646 训 2647 聪 2648 蔓 2649 问 2656 角 
2651 从 2652 从 2653 次 2653 粗 2655 琵 
2656 笨 2657 促 2658 踪 2059 复 2660 案 
2061 搬 2862 崔 2663 催 2964 鹏 2865 兰 
2466 粹 2067 洋 2668 寻 2669 村 2070 存 
2071 才 2872 2673 撮 2674 搓 2675 措 
2076 接 2677 殿 2078 搭 26079 达 2086 答 
2481 赛 2082 打 2083 大 2884 呆 2685 斑 
2086 休 2087 藏 2088 带 2689 歼 2098 代 
2691 贷 2692 园 2093 待 2094 寻 
第 21 区 


2101 乱 2192 耽 2103 担 2164 丹 2195 单 
2106 都 2107 撞 2168 胆 2109 旦 2119 和 氢 
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2111 但 2112 习 2113 淡 2114 诈 2115 章 
2116 醒 2117 当 2118 挡 2119 营 2120 菏 
2121 档 2122 刀 2123 的 2124 贤 :2125 本 
2126 鸟 2127 实 2128 导 2129 到 2130 帮 
2131 蛋 2132 道 2133 资 2134 德 2135 得 
2136 的 2137 监 2138 灯 2139 痘 2146 竺 
2141 攻 2142 曲 2143 邓 2144 直 2145 低 
2146 消 2147 迪 2148 笋 2149 笛 2150 多 
2151 涤 2152 性 2153 录 2154 抵 2155 底 
2156 地 2157 襄 2158 第 2159 沉 2168 音 
2161 递 2162 缔 2163 阁 2164 撕 2165 汗 
2166 特 2167 点 2168 昌 2169 能 2176 擂 
2171 电 2172 外 2173 甸 2174 店 2175 本 
2176 基 2177 淀 2178 累 2179 香 2186 世 
2181 奈 2182 翌 2183 本 2184 掉 2185 串 
2186 和 多 2187 调 2188 哮 2189 葵 2190 从 
2191 媒 2192 选 2193 谍 2194 可 
第 22 区 

2201 了 2262 盯 2203 呆 2264 杀 2265 项 
266 掏 2207 锭 2208 定 2299 订 2210 王 
2211 末 2212 文 2213 董 2214 懂 2215 动 
2216 标 2217 个 2218 侦 2219 汇 2228 泣 
2221 负 2222 拌 2223 斗 2224 随 2225 互 
2226 喜 2227 将 2228 都 2229 督 2236 着 
2231 辕 2232 独 2233 读 2234 堵 2235 用 
2236 财 2237 杜 2238 镇 2239 肚 2246 度 
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2241 湾 2242 妨 2243 端 2244 拓 2245 沿 
2246 段 2247 断 2248 妃 2249 堆 2250 总 
2251 队 2252 对 2253 协 2254 吨 2255 英 
2256 就 2257 新 2258 因 2259 钝 2260 秆 
2261 通 2262 摄 2263 哆 2264 多 2265 夺 
2266 提 2267 租 2268 呈 2260 申 22708 训 
2271 旭 2272 情 2273 莉 227 2275 峻 
2276 和 2 斧 2278 额 2279 读 2286 落 
2281 亚 2282 2283 扼 2284 遇 2285 赃 
2286 名 2287 因 2288 而 2289 儿 2296 卫 
2291 汞 2202 由 2293 泪 2294 二 
第 23 区 


2381 蒜 239 才 人 2363 罚 2304 答 2305 代 
2386 王 2307 内 2398 法 2389 际 2319 幕 
2311 由 2312 疾 2313 届 2314 林 2315 机 
2316 负 2317 繁 2318 凡 2319 烦 2326 反 
2321 返 2322 范 2323 败 2324 犯 2325 摇 
2326 泌 2327 护 2328 芳 2329 方 2336 及 
2331 房 2332 防 2333 妨 2334 仿 2335 访 
2336 纺 2337 放 2338 甘 2339 非 2340 大 
2341 飞 2342 肥 2343 莉 2344 诽 2345 届 
2346 肺 2347 不 2348 潮 2349 费 2350 其 
2351 酚 2352 只 2353 氛 2354 分 2355 纷 
2356 执 2357 楚 2358 济 2359 粉 2368 碍 
2361 价 2362 候 2363 情 2364 关 2365 站 
2366 封 2367 机 2368 蜂 2369 峰 2376 竺 
2371 风 2372 疯 2373 烽 2374 逢 2375 冯 
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2376 缝 2377 识 2378 素 2379 风 2386 佛 
2381 否 2382 夫 2383 台 2384 肤 2385 入 
2386 扶 2387 折 2388 驾 2389 由 2398 所 
2391 符 2392 优 2393 分 2394 最 


第 24 区 


2401 浮 2462 党 2403 神 .2464 鹤 2465 旨 
2486 甫 2407 拓 2468 辅 2499 依 2410 侈 
2411 苍 2412 戎 2413 荫 2414 府 2415 府 
2416 赴 2417 副 2418 覆 2419 骸 2420 复 
2421 伟 2422 付 2423 息 2424 父 2425 明 
2426 负 2427 富 2428 让 2429 附 2438 妇 
2431 缚 2432 只 2433 草 2434 厌 2435 读 
2436 长 2437 柜 2438 忻 2439 盖 2446 流 
2441 干 2442 菇 2443 杆 2444 柑 2445 党 
2446 于 2447 赶 2448 感 2449 秆 2456 族 
2451 蒜 2452 网 2453 刚 2454 钢 2455 向 
2456 及 2457 纲 2458 岗 2459 港 2466 村 
2461 篇 2462 泉 2463 高 2464 音 2465 闫 
2466 粒 2467 将 2468 稍 2469 葡 2476 千 
2471 哥 2472 歌 2473 捆 2474 七 2475 押 
2476 收 2477 交 2478 割 2479 革 2480 葛 
2481 格 2482 始 2483 阅 2484 属 2485 入 
2486 个 2487 各 2488 给 2489 根 2498 昧 
2491 耕 2492 更 2493 庚 2494 辫 
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第 25 区 
2561 翅 2502 耿 2563 福 2504 工 2505 必 
2585 功 25607 茶 2508 蓝 25609 供 2518 身 
2511 公 2512 宫 2513 马 2514 巩 2515 肝 
2516 拱 2517 贡 2518 共 2519 钓 2520 飞 
2521 沟 2522 苟 2523 狂 2524 拓 2525 构 
2526 购 2527 够 2528 训 2529 菇 2538 目 
2531 短 2532 估 2533 沽 2534 莪 2535 寻 
2536 就 2537 古 2538 是 2539 骨 2540 从 
.2541 股 2542 故 2543 质 2544 因 2545 宕 
2546 和 天 2547 瓜 2548 则 2549 案 2558 挂 
2551 宰 2552 狠 2553 拐 2554 督 2555 检 
2556 关 2557 官 2558 冠 2559 观 2566- 管 
2561 人 忆 2562 刍 2563 惯 2564 灌 2565 贯 
2566 光 2567 广 2568 送 2569 现 2570 规 
2571 求 2572 竺 2573 归 2574 角 2575 转 
2576 轨 2577 梨 2578 诡 2579 亲 2588 桂 
2581 柜 -2582 中 2583 贵 2584 刘 2585 辊 
2586 深 2587 根 2588 锅 2589 郭 2590 国 
2591 果 2592 棵 2593 过 2594 哈 
第 26 区 

2601 项 2602 孩 2603 海 2604 毛 2665 妈 
2666 害 2697 琶 2668 耐 2609 束 2619 避 
2611 埋 2612 令 2613 洱 2614 寒 2615 
2516 有 幅 2617 空 2618 珍 2619 基 2628 提 
2621 旱 2622 柜 2623 保 2624 焊 2625 汪 


2626 汉 2627 夯 2628 杭 2629 航 2630 壕 
2631 咏 2632 驼 2633 赣 2634 郝 2635 好 
2636 未 2637 号 2638 浩 2639 呵 2640 图 
2641 荷 2642 落 2643 核 2644 儿 2645 和 
2646 何 2647 人 台 2648 盒 2649 络 2656 阅 
2651 河 2652 泗 2653 灰 2654 褐 2655 锥 
2656 旧 2657 旧 2658 黑 2659 痕 2660 急 
2661 腿 2662 根 2663 喀 2664 享 2665 模 
2666 衙 2667 恒 2668 系 2669 哟 2676 扯 
2671 凡 2672 汐 2673 洪 2674 宏 2675 式 
2576 红 2677 喉 2678 伐 2679 猴 2686 吕 
2581 尼 2682 候 2683 后 2684 呼 2685 手 
2586 名 2687 戎 2688 奏 2689 戎 2698 衣 
2691 蝴 2592 狐 2693 樟 2694 湖 
第 27 区 


2761 约 2702 席 2763 鼎 2704 护 2765 也 
2786 沪 2707 户 2768 花 2769 史 2710 妊 
2711 独 2712 滑 2713 画 2714 划 2715 化 
2716. 话 2717 析 2718 向 2719 怀 2726 浴 
2721 坏 2722 欢 2723 朱 2724 柏 2725 示 
2726 缓 2727 换 2728 串 2729 览 2730 交 
2731 厌 2732 焕 2733 澳 2734 官 2735 妃 
2736 芒 2737 慌 2738 黄 2739 左 2746 蝗 
2741 和 车 2742 皇 2743 斩 2744 恬 2745 煌 
2746 晃 2747 如 2748 忧 2749 谋 2756 灰 
2751 挥 2752 辉 2753 租 2754 恢 2755 如 
2756 团 2757 毁 2758 悔 2759 蒜 2760 卉 
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2761 奸 2762 明 2763 贿 2764 物 2765 会 
2766 烩 2767 汇 2768 讳 2769 次 2770 绽 
2771 划 2772 氏 2773 婚 2774 民 2775 泽 
2776 混 2777 苍 2778 活 2779 伙 2786 火 
2781 获 2782 或 .2783 束 2784 堆 2785 贷 
2786 祝 278P 击 2788 报 2789 基 2798 机 
2791 暗 2792 荐 2793 积 2794 管 


第 28 区 


2861 肌 2862 机 2883 过 2864 激 2865 训 
2866 鸡 2807 妈 2808 绩 2809 缉 2810 吉 
2811 极 2812 粹 2813 辑 2814 夭 2815 集 
2816 及 2817 急 2818 疾 2819 溪 2820 即 
2821 巡 2822 级 2823 挤 2824 几 2825 兰 
2826 忆 2827 欧 2828 技 2829 疆 2830 地 
2831 传 2832 妹 2833 剂 2834 慰 2835 济 
2836 害 2837 寂 2838 计 2839 记 2840 丑 
2841 总 2842 际 2843 妓 2844 继 .2845 如 
2846 喜 2847 机 2848 夹 2849 佳 2858 家 
2851 加 2852 甘 2853 类 2854 贾 2855 四 
2856 元 2857 假 2858 入 2859 价 2860 如 
2861 驾 2862 巡 2863 牙 2864 监 2865 坚 
2866 关 2867 笑 2868 间 2869 前 2876 兼 
2871 和 让 2872 东 2873 好 2874 钴 2875 昔 
2876 检 2877 东 2878 茂 2879 花 2886 拱 
2881 失 2882 简 2883 丛 2884 疯 2885 诚 
2886 荐 2887 检 2888 鉴 2889 践 2896 财 
2891 见 2892 键 ' 2893 箭 2894 件 


413 


414 


第 29 区 


2981 健 2982 种 2903 剑 2994 使 2985 渐 
29066 泪 2967 润 2988 建 2969 价 2910 半 
2011 将 2912 妆 2913 江 2914 村 2915 着 
2916 涉 2917 发 2918 讲 2919 区 2928 着 
2921 降 2922 巷 2923 相 2924 众 2925 焦 
2926 胶 2927 交 2928 部 2929 江 2930 莫 
2931 匠 2932 说 2933 搅 2934 较 2935 锋 
2936 贷 2937 脚 2938 效 2939 角 2940 忆 
2941 牧 2942 过 2943 革 2944 教 2945 苹 
2946 轿 2947 较 2948 叫 2949 窗 2950 揭 
2951 接 2952 几 2953 糙 2954 街 2955 阶 
2956 堆 2957 劫 2958 节 2959 桔 2968 本 
2961 接 2962 苞 2963 瘟 2964 洁 2965 结 
2966 解 2967 姐 2968 戒 2969 藉 2978 芥 
2971 界 29072 侍 2973 介 2974 辣 2975 庆 
2976 轴 2977 店 2978 季 2979 斤 2986 人 金 
2981 令 2982 当 2983 襟 2984 累 2985 锦 
2986 仅 2987 谨 ?988 进 2989 靳 2998 雪 
2991 桂 2992 近 2993 想 2994 温 
第 36 区 


3001 尽 3682 劲 38663 齐 38694 殴 3005 诗 
3066 彤 3067 虽 3808 全 3669 京 3819 入 
3011 精 3012 粮 3613 经 3014 提 3015 敬 
3616 县 3617 颈 3618 郁 36019 境 3620 区 
3021 镜 3822 径 3623 疼 3024 请 3025 竟 


3626 况 3827 次 3928 炯 3029 窜 3630 报 
3831 究 3632 纠 3633 玫 3034 韭 3635 久 
3036 多 3037 九 3038 酒 3639 属 3040 朱 
3041 上 日 3642 白 3043 量 3644 知 3045 就 
3646 次 3047 萌 3648 掏 3649 狙 3656 容 
3051 居 3852 驯 3653 萄 3654 局 3655 咀 
3656 拒 38657 举 3058 温 3659 聚 3960 拒 
3461 据 3662 巨 3063 具 3664 曝 3665 器 
3066 锯 3667 候 3668 句 3669 惧 3670 在 
3071 剧 3972 捐 3673 久 3674 娟 3675 入 
3976 着 3077 卷 3078 纲 3079 把 3680 提 
3881 执 3982 据 3983 介 3084 彰 3685 沉 
3086 实 3687 雇 3088 纯 3889 雪 3690 菌 
3691 钓 3692 军 3693 君 3694 星 


第 31 区 


3101 俊 3102 让 3163 滩 3164 那 3165 歼 
318 3167" 邮 3108 卡 3169 咯 3116 开 
3111 找 3112 桔 3113 凯 3114 慨 3115 乔 
3116 其 3117 勘 3118 的 3119 隐 3128 和 看 
3121 康 3122 怀 3123 糠 3124 3125 搞 
3126 亢 3127 迷 3128 考 3129 指 3130 
3131 生 3132 坷 3133 苛 3134 相 3135 村 
3136 共 3137 昧 3138 科 3139 壳 3140 夸 
3141 可 3142 渴 3143 克 3144 刻 3145 客 
3146 课 3147 肯 3148 哨 3149 明 3150 有 
3151 坑 3152 蚊 3153 空 3154 秋 3155 妃 
3156 控 3157 抠 3158 回 3159 扣 3169 家 


415 


3161 枯 3162 揣 3163 窟 3164 苦 3165 症 
3166 康 3167 祥 3168 夺 3169 垮 3178 持 
3171 蜂 3172 膀 3173 块 3174 措 3175 丛 
3176 快 3177 宽 3178 款 3179 医 3180 入 
3181 狂 3182 框 3183 矿 3184 医 3185 及 
3186 总 3187 亏 3188 查 3189 骨 3196 认 
3191 莫 3192 迹 3193 射 3194 俐 
第 3 区 

慢 3203 溃 3264 卦 3265 昆 
困 3268 括 3269 扩 32106 良 


3281 司 3282 
7 
1 人 3213 控 3214 哺 3215 时 
17 
2 7 


32 
3266 捆 32 
3211 疼 ? 
3216 租 3217 鳞 3218 话 3219 菜 3228 来 
3221 赖 3222 蓝 3223 梦 3224 栏 3225 半 
3226 笃 3227 阐 3228 兰 3229 泣 3236 调 
3231 揽 3232 览 3233 司 3234 缴 3235 站 
3236 滥 3237 扫 3238 椰 3239 恨 3240 诛 
3241 邹 3242 半 3243 浪 3244 捞 3245 劳 
3246 牢 3247 老 3248 做 3249 姥 3250 歼 
3251 烙 3252 洲 3253 勘 3254 乐 3255 曙 
3256 备 3257 董 3258 各 3259 田 3260 偶 
3261 和 又 3262 播 3263 助 3264 类 3265 泪 
3266 棱 3267 楞 3268 冷 3269 昌 3276 犁 
3271 旭 3272 黎 3273 壳 3274 羞 3275 高 
3276 湾 3277 理 3278 李 3279 里 3280 经 
3281 礼 3282 首 3283 芒 3284 南 3285 昧 
3286 丽 3287 乓 3288 声 3289 雁 3296 历 
3291 利 3292 保 3293 例 3294 俐 


416 


2 
2 
2 


33 区 


3301 灿 3302 立 3393 粒 3364 涛 3365 隶 
3306 力 3307 玉 3368 哩 3399 俩 3310 联 
3311 带 3312 连 3313 钙 3314 3315 必 
3316 滤 3517 寓 3318 效 3319 脸 3328 链 
3321 恋 3322 尺 3323 练 3324 粮 3325 六 
3326 果 3327 果 3328 良 3329 两 3339 攻 
3331 量 3332 芝 3333 各 3334 谅 3335 拓 
3336 腥 3337 偿 3338 疗 3339 炉 3348 家 
3341 辽 3342 沪 3343 了 3344 提 3345 入 
3346 原 3347 料 3348 列 3349 裂 3350 列 
3351 当 3352 猎 3353 琳 3354 林 3355 灾 
3356 夫 3357 临 3358 架 3359 鲜 3360 洒 
3361 储 3362 赁 3363 音 3364 扒 3365 玲 
3366 六 3367 款 3368 芥 3369 锥 3376 从 
3371 特 3372 读 3373 灵 3374 陵 3375 抢 
3376 领 3377 另 3378 今 3379 汐 3380 莘 
3381 村 3382 共 3383 留 3384 留 3385 刘 
3386 痢 3387 流 3388 柳 3389 六 3390 龙 
:391 可 3392 驳 3393 笼 3394 你 
第 34 区 


3401 隆 3402 村 3483 拢 3404 陀 3405 楼 
3406 姜 3407 搂 3488 往 3409 沁 3419 荐 
3411 芦 3412 户 3413 顺 3414 庐 3415 炉 
3416 拓 3417 锣 3418 虏 3419 鲁 3420 历 
3421 碌 3422 袁 3423 路 3424 赂 3425 记 


417 


3426 泪 3427 神 3428 录 3429 陆 3430 我 
3431 惠 3432 日 3433 旬 3434 外 3435 这 
3436 属 3437 展 3438 续 3439 虑 3440 和 氢 
3441 律 3442 素 3443 汇 3444 绿 3445 恋 
3446 谤 3447 挛 3448 注 3449 孵 3450 条 


3451 掠 3452 覆 3453 抢 3454 轮 3455 伦 


3456 仑 3457 沦 3458 侈 3459 论 3460 葛 
3461 媒 3462 罗 3463 回 34654 锡 3465 和 全 
3466 骏 3467 裸 3468 落 3469 洛 3478 和 区 
3471 络 347 烦 3473 麻 3474 玛 3475 间 
3476 秃 3477 怠 3478 驾 3479 瞬 3488 加 


3481 埋 3482 买 3483 考 3484 卖 3485 这 


418 


3486 脉 3487 腊 3488 慢 3489 迹 3498 满 
3491 槛 3492 电 3493 慢 3494 温 


第 35 区 


3501 课 3582 芒 3503 菏 3504 谨 3565 刘 
3506 从 3567 草 3568- 猫 3569 泣 3510 筑 
3511 毛 3512 予 3513 牧 3514 印 3515 功 
3516 冒 3517 帽 3518 驱 3519 贸 3526 妈 
3521 孜 3522 枚 3523 和 3524 酶 3525 老 


3526 煤 3527 没 3528 四 3529 媒 3530 


3531 娃 3532 美 3533 昧 3534 圭 3535 妹 
3536 媚 3537 门 3538 头 3539 们 3546 苗 
3541 蒙 3542 榜 3543 黑 3544 锰 3545 猛 
3546 梦 3547 孟 3548 睐 3549 栈 3550 摩 
3551 麻 3552 这 3553 读 3554 弥 3555 米 
3556 区 3557 页 3558 洲 3559 密 3566 密 


3561 景 3562 棉 3563 眼 3564 绵 3565 里 
3566 免 3567 禹 3568 焕 3569 缅 3576 面 
3571 音 3572 描 3573 因 3574 蒜 3575 和 名 


3576 小 3577 庙 3578 妙 3579 藏 3586 灭 


3581 民 3582 报 3583 亚 3584 故 3585 全 
3586 半 3587 明 3588 电 3589 鸣 3598 铭 
3591 名 3592 命 3593 站 3594 措 

第 36 区 


3601 幕 3602 莫 3603 模 3604 腊 3665 麻 
3606 麻 3667 启 36608 打 3689 末 3610 划 
3611 墨 3612 歇 3613 沫 3614 漠 3615 实 
3616 也 3617 谨 3618 竺 3619 某 3626 担 
3621 特 3622 罕 3623 姆 3624 号 3625 如 
3626 莫 3627 幕 3628 莫 3629 瘟 人 
3631 目 3632 际 3633 笋 3634 不 3639 合 
3636 即 3637 失 3638 钠 3639 那 3640 娜 
3641 纳 3642 气 3643 乃 3644 奶 3645 而 
3646 夫 3647 南 3648 男 3649 难 3656 费 
3651 挠 3652 蒋 3653 恼 3654 冰 3655 漳 
3656 呢 3657 必 3658 内 3659 妖 3666 能 
3661 妮 3662 需 3663 倪 3664 泥 :3665 尼 
3566 拟 3667 你 3668 医 3669 赂 3670 训 
3671 沁 3672 莫 3673 牛 3674 年 3675 导 
3676 接 3677 技 3678 念 3679 娘 3686 娃 
3681 鸟 3682 尿 3683 担 3684 可 3685 草 
3686 旷 3687 银 3688 得 3689 湿 3698 你 
3691 棕 3692 郑 3693 滥 3694 宁 
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第 37 区 


3791 近 3762 党 3763 牛 3794 握 3765 组 
3766 组 3767 脓 3798 染 3769 农 3716 艇 
3711 奴 3712 努 3713 恕 3714 女 3715 用 
3716 虐 3717 并 3718 撮 3719 恬 3720 靖 
3721 诺 3722 骤 3723 欧 3724 葬 3725 雏 
3726 苯 3727 攻 3728 个 3729 泊 3736f 提 
3731 忠 3732 和 3733 赂 3734 怕 3735 半 
3736 拍 3737 排 3738 牌 3739 徘 3746 汪 
3741 派 3742 光 3743 潘 3744 和 县 3745 亲 
3746 盼 3747 赔 3748 判 3749 叛 3750 乓 
3751 麻 3752 旁 3753 精 3754 胖 3755 搜 
3756 咱 3757 划 3758 炸 3759 袍 3760 岗 
3761 淘 3762 鸣 3763 胜 3764 培 3765 表 
3766 脱 3767 褒 3768 丙 3769 修 3776 浏 
3771 工 3772 盆 3773 故 3774 择 3775 训 
3776 赃 3777 彭 3778 羞 3779 3789 间 
3781 往 3782 诈 3783 朋 3784 胸 3785 关 
3786 磁 3787 坏 3788 釉 3789 震 3790 批 
3791 披 3792 劈 3793 套 3794 几 


第 38 区 


3881 啤 3802 牌 3803 靶 3864 皮 3865 匹 
3806 病 3807 健 3808 屁 3809 伺 3810 篇 
3811 候 3812 片 3813 甬 3814 球 3815 漂 
3816 杜 3817 票 3818 撤 3819 普 3820 拼 
3821 频 3822 贫 3823 品 3824 腺 3825 乒 


3826 挟 3827 侍 3828 荐 3829 平 3838 全 
3831 瓶 3832 评 3833 屏 3834 坡 3835 洲 
3836 颇 3837 活 3838 艾 3839 了 3846 这 
3841 粕 3842 剖 3843 扑 3844 铺 3845 人 不 
3846 攻 3847 葡 3848 营 3849 薄 3850 二 
3851 朴 3852 园 3853 普 3854 浦 3855 谱 
3856 曝 3857 瀑 385g 罗 类 3859 坎 3866 李 
3861 威 3862 考 3863 七 3864 囊 3865 漆 
3866 迷 3867 汀 3868 其 3869 机 3870 奇 
5371 战 3872 硅 3873 彤 3874 豚 3875 章 
3876 旗 3877 祈 3878 祁 3879 骑 3888 起 
3881 岂 3882 侈 3883 企 3884 自 3885 血 
3886 形 3887 器 3888 气 3889 冶 3890 弃 
3891 泊 3892 这 3893 访 3894 指 


第 39 区 


3961 恰 3902 洽 3963 牵 3904 反 3985 儿 
3986 锁 3967 千 3908 证 3969 答 3919 作 
3911 谦 3912 乾 3913 黔 3914 钱 3915 钳 
3916 前 3917 潜 3918 中 3919 浅 3920 放 
3921 玛 3922 械 3923 欠 3924 款 3925 枪 
3926 吃 3927 腔 3928 羌 3929 墙 3936 普 
3931 强 3932 抢 3933 楼 3934 欠 3935 世 
3936 悄 3937 桥 3938 本 3939 乔 3940 侨 
3941 瑟 3942 鞘 3943 摄 3944 遂 3945 明 
3946 倩 3947 穷 3948 切 3949 葡 3950 且 


421 


422 


3951 性 3952 窃 3953 钦 3954 侵 3955 末 
3956 泰 3957 共 3958 勤 3959 芹 3960 的 
3961 合 3962 窜 3963 治 3964 青 3965 轻 
3966 拨 3967 价 3968 周 3969 清 3970 车 
3971 睛 3972 氧 3973 情 3974 硕 3975 请 
3976 庆 3977 防 3978 穷 3979 秋 3980 工 
3981 印 3982 妹 3983 求 3984 因 3985 首 
3986 油 . 3987 趋 3988 区 3989 姐 3990 曲 
3991 颈 3992 必 3993 驱 3994 次 


第 46 区 


4981 到 4002 职 4603 肯 4604 趣 4685 去 
4666 图 4607 疾 4608 权 4689 醛 4610 
40911 全 4612 疙 4013 素 48614 犬 4615 壹 
4916 劝 4617 缺 4618 燃 4619 4626 却 
4921 药 4622 权 4623 确 4624 深 4025 禄 
4626 群 482TRA 4028 代 4629 冉 4630 染 
4031 丽 4632 娘 4633 报 4634 原 4635 让 
4636 佐 4637 扰 4638 线 4639 车 4046 执 
4641 王 4642 仁 4643 人 4044 于 4845 朝 
4046 任 4647 认 4648 尺 4649 妊 4858 弓 
4651 扔 4652 仍 4653 日 4654 式 4855 仁 
4656 基 48657 荣 4658 融 4659 熔 4068 党 
4061 容 4862 统 4663 宛 4664 操 4665 有 对 
4066 肉 4067 茹 4668 姬 4669 癸 4070 中 
4071 如 4872 户 4073 护 4074 当 4875 入 


4075 得 94977 软 4678 
4681 赏 4682 六 4883 
405B 扒 4687 酒 4888 
4891 塞 4892 赛 48943 


4079 芝 4680 只 
4084 若 4685 缠 
4830 月 4690 蚀 
三 4694 盆 


之 


| 


4101 伞 4162 散 9193 紧 918 4185 示 
4186 报 4167 双 9188 把 -44869 妇 4110 共 
4111 色 42 梁 4113 厅 和 4115 藻 
4116 砂 41 条 4118 痢 411 人 120 纱 
4121 俐 9122 监 4423 银 4124 攻 4125 曾 
4126 基 4127 昔 4128 形 412 4139 出 
4131 炉 4i32 蓄 4133 六 4134 也 4135 撞 
4136 脆 7 冉 4138 139 油 4148 岛 
143 1 


4181 神 9182 沈 44183 审 41 
44186 属 9187 畏 9188 活 和 
4191 锣 -4192 较 193 升 419 


-上 
人 
vO 
< 
HE 


4214 


第 42 区 


4201 省 4202 成 4203 利 4264 胜 4265 叶 
4266 师 4207 失 4208 痢 4209 萎 4219 滥 
4211 诗 49212 忆 4213 剧 4214 十 4215 石 
4216 挫 4217 时 4218 什 4219 食 4220 全 
4221 实 4222 识 4223 史 4224 关 4225 使 
4226 尿 4227 驶 4228 始 4229 式 4236 秘 
4231 土 4232 世 4233 榜 4234 事 4235 拭 
4236 玲 4237 遂 4238 势 4239 是 4240 哮 
4241 共 4242 送 4243 仕 4244 传 4245 竹 
4246 居 4247 拱 4248 市 4249 桂 4256 室 
4251 视 4252 试 4253 收 4254 手 4255 首 
4256 守 4257 考 4258 授 4259 售 4266 受 
4261 瘦 4262 兽 -4263 蔬 4264 权 4265 核 
4266 殊 4267 抒 4268 输 4269 扣 4278 租 
4271 浊 4272 苇 4273 书 4274 凡 4275 就 
4276 训 4277 蓝 4278 晶 4279 眼 4288 团 
4281 蜀 4282 和 对 4283 鼠 4284 属 4285 术 
4286 述 4287 材 4288 东 4289 成 4298 坚 
4291 墅 4292 底 4293 数 4294 党 


第 43 区 
4301 部 4362 刷 4363 要 4364 掉 4365 训 
4306 用 4397 遇 4388 检 4389 挫 4319 需 


4311 双 4312 殉 4313 谁 4314 水 4315 攻 
4316 税 4317 哆 4318 薪 4319 顺 4320 朋 


4321 说 4322 辜 4323 调 4324 烁 4325 其 
4326 括 4327 饭 4328 轩 4329 私 4330 司 
4331 仑 4332 死 4333 委 4334 寺 4335 册 
4336 四 4337 个 4338 似 4339 忆 4340 已 
4341 松 4342 台 4343 从 4344 侨 4345 闫 
4346 宋 4347 识 9348 请 4349 提 4356 超 
4351 筑 9352 同 4353 苏 4354 酬 9355 从 
4356 束 4357 速 4358 票 4359 保 4368 刘 
4361 淹 4362 宿 9363 诉 4364 肃 4365 栈 
4366 蒜 4367 算 4368 昌 4369 阴 4376 随 
4371 巡 4372 苦 4373 和 从 4374 岁 4375 粮 
4376 递 4377 了 4378 染 9379 孙 9386 损 
4381 敌 4382 划 4383 检 4384 唆 4385 缩 
4386 蚤 4387 4388 横 4389 所 439gt 
4391 他 4392 它 4393 她 4394 卉 


第 44 区 


4901 儿 9q82 扶 9903 踢 9404 踏 9405 的 
4466 营 4q67 抬 4q988 台 4409 素 9418 酸 
qd411 本 4q912 查 4413 汰 4q9149 拥 9415 所 
4416 领 4417 阅 4918 滞 4449 匡 4420 覃 
4421 疫 4422 洒 4423 证 4424 谈 4425 坦 
49426 苞 44927 祝 4428 耿 4429 探 9438 取 
4431 党 4q32 汤 4q933 雯 4434 搞 9435 室 
4436 宗 4437 腔 4438 唐 4439 糖 4440 他 
4441 秽 .4442 消 4443 直 4944 温 4445 揭 
4446 浅 4447 洋 4448 综 4449 萄 4458 桃 


3 


426 


4451 挝 4452 淘 4953 陶 4454 讨 9455 可 
4456 特 4457 芯 4458 肚 4459 疫 9468 莽 
4461 梯 4962 别 4463 器 4464 镜 4965 提 
4466 题 4467 距 4468 障 4469 体 4478 车 
4471 辽 4472 惕 4473 涕 4474 针 4475 最 
4476 天 4477 添 9978 卉 4479 田 4488 卉 
4481 恬 4482 世 4983 驴 4484 挑 4985 条 
4486 退 4487 胱 4488 中 4489 贴 9498 的 
4491 帖 4492 厅 4493 新 4494 妈 
种 45 区 


4561 汀 4502 还 4593 停 9594 部 9565 许 
4506 托 4567 黎 4508 通 4599 相 9519 绩 
4511 辜 4512 同 4513 钢 4514 影 4515 间 
4516 梢 4517 捅 9518 笠 9519 统 4526 交 
4521 偷 4522 投 4523 头 4524 道 4525 上 
4526 无 4527 突 4528 图 4529 徒 4538 这 
4531 涂 4532 属 4533 土 4534 时 9535 鲍 
4536 测 4537 团 4538 推 4539 矣 4540 腿 
4541 毁 4542 禄 4543 恕 4544 香 4545 十 
4546 丑 4547 拖 4548 托 4549 脱 9550 角 
4551 陀 4552 鞭 455. 砂 4554 精 4555 巡 
4556 拓 4557 敬 455g 挖 4559 硅 4560 娃 
4561 洼 4562 娃 4563 4564 袜 4565 于 
4566 外 4567 懂 4568 弯 4569 洒 4579 其 
4571 详 4572 丸 4573 烷 4574 完 4575 神 
4576 换 4577 隐 4578 综 4579 忱 4589 宽 


4581 巡 4582 万 4583 院 4584 汪 4585 王 
4586 亡 4587 杜 4588 网 4589 往 4590 性 
4591 望 46592 忘 4593 亡 4594 三 


第 46 区 


4601 并 4602 微 4603 危 4604 韦 4605 韦 
4666 郊 4667 围 4608 叭 4609 改 46190 为 
4611 梁 4612 维 4613 革 4614 半 4615 委 
4616 伟 4617 俯 4618 尾 4619 纬 4628 未 
4621 前 4622 昧 4623 且 4624 骨 4625 眼 
4626 犁 4627 位 4628 渭 4629 谓 4630 间 
4631 和 届 4632 卫 4633 瘤 4634 温 4635 
4636 文 4637 闻 4638 纹 4639 明 4640 稳 
4641 邯 4642 问 4643 输 4644 萄 4645 伪 
4646 挝 4647 蜗 4648 涡 4649 窝 4656 我 
4651 韩 4652 卧 4653 握 4654 沃 4655 释 
4656 网 4657 钨 4658 乌 4659 污 4660 证 
4661 尾 4662 无 4663 芜 4664 构 4665 各 
4666 吴 4667 几 4668 武 4669 五 4676 插 
4671 午 4672 舞 4673 伍 4674 人 屁 4675 鸠 
4676 戊 4677 权 4678 明 4679 物 4686 匆 
4681 务 4682 屋 4683 误 4684 4685 区 
4686 析 4687 西 4688 硒 4689 砂 4696 新 
4691 暑 4692 明 4693 锡 4694 辆 


427 


428 


第 47 区 


4701 稀 4702 息 4703 希 4704 肝 4705 肝 
4766 夕 4707 异 4708 炮 4769 烯 4710 溪 
4711 泡 4712 屎 4713 机 4714 费 4715 良 
4716 习 4717 媳 4718 喜 4719 铁 4720 沪 
4721 系 4722 除 4723 或 4724 细 4725 陪 
4726 是 4727 攻 4728 沉 4729 辖 4730 眼 
4731 峡 4732 合 4733 狭 4734 下 4735 属 
4736 夏 4737 剑 4738 欣 4739 猴 4746 先 
4741 仙 4742 饼 4743 纤 4744 咸 4745 贤 
4746 街 4797 茂 4748 闲 9749 混 4750 芝 
4751 嫌 4752 显 4753 隐 4754 现 4755 南 
4756 县 4757 腺 4758 愧 4759 氏 4760 宽 
4761 陷 4762 限 4763 线 4764 相 4765 用 
4766 镶 9767 音 4768 箱 4769 训 4776 汀 
4771 乡 4772 翔 4773 祥 4774 详 4775 想 
4776 拘 9777 享 4778 项 4779 巷 4786 检 
4781 像 4782 问 4783 象 4784 匡 4785 硝 
4786 霄 4787 削 4788 噬 4789 美 4790 销 
4791 消 9792 宵 4793 淆 4794 晓 


第 48 区 


4861 小 4862 孝 4803 校 4864 省 4805 中 
4866 笑 4897 效 4808 视 4869 些 4810 其 
4811 蝎 4812 娃 4813 协 4814 挟 4815 扒 
4816 囊 4817 余 4818 朋 4819 普 4820 写 


4821 核 4822 和 郑 4823 稻 4824 殴 4825 灌 
4826 汝 4827 裔 4828 局 4829 菜 4836 蕊 
4831 锌 4832 欣 4833 辛 4834 新 4835 白 
4836 心 4837 售 4838 名 4839 星 4848 层 
4841 狂 4842 怪 4843 关 4844 刑 4845 型 
4846 形 4847 邢 4848 行 4849 醒 4856 幸 
4851 杏 4852 性 4853 媳 4854 兄 4855 拘 
4856 网 4857 匈 4858 消 4859 扒 4860 能 
4861 休 4862 修 4863 盖 4864 朽 4865 史 
4866 猎 4867 和 弄 4868 袖 4869 用 4870 捧 
4871 成 4872 需 4873 虑 4874 昌 4875 搞 
4876 徐 4877 许 4878 车 4879 柄 4886 儿 
4881 直 4882 序 4883 襄 4884 恤 -4885 象 
4886 媚 4887 堵 4888 侠 4889 斩 4890 鲁 
4891 室 4892 县 4893 旋 4894 支 


第 49 区 


4901 选 4962 举 4993 陀 4964 绚 4905 东 
4966 萝 4907 学 4908 穴 4909 雪 4910 血 
4911 勋 4912 重 4913 箱 4914 多 4915 询 
4916 寻 4917 驯 4918 遂 4919 列 4928 

4921 训 4922 讯 4923 逊 4924 迅 4925 

4926 押 4927 狠 4928 鸭 4929 昨 4938 站 
4931 菠 4932 牙 4933 是 4934 崖 4935 答 


4936 涯 4937 雅 4938 只 4939 亚 4946 评 


4941 关 4942 咖 4943 阔 4944 烟 4945 流 
4946 盐 4947 严 4948 研 4949 妈 4959 兰 


429 


430 


4951 臣 4952 言 4953 颜 4954 罗 4955 炎 
4956 沿 4957 融 4958 掩 4959 眼 4968 条 
4961 滨 4962 艳 4963 最 4964 燕 4965 居 
4966 秽 4967 暑 4968 陪 4969 疡 4979 和 
4971 宣 4972 谱 4973 验 4974 殊 4975 史 
4976 香 4977 和 灿 4978 杨 4979 扬 4989 作 
4981 冯 4982 羊 4983 洋 4984 阳 4985 氧 
4986 仰 4987 痒 4988 养 4989 样 4998 当 
4991 避 4992 腰 4993 妩 4994 也 


第 58 区 


5001 鬼 5682 党 5603 遂 58604 窗 58065 放 
5006 姚 5607 蚁 5008 器 5069 药 5618 要 
5611 朝 5612 可 5613 苞 5614 耶 5615 和 分 
5916 又 5617 次 5618 也 5619 页 5820 扒 
5021 业 5622 叶 5623 遇 5024 肪 5625 夜 
5026 滚 5027 一 5028 孝 5029 医 5030 担 
5031 钵 5632 依 5633 伊 5034 本 5635 上 
5036 吏 5037 站 5038 移 5039 仪 5646 味 
5041 肾 5642 沂 5843 宜 5644 姨 5045 莫 
5046 椅 5047 蚁 5648 俏 5649 已 5050 乙 
5051 旬 5052 以 50653 艺 5654 抑 5855 易 
5056 吕 5657 紫 5058 亿 5659 役 58060 大 
5061 人 锡 5662 律 5663 疫 5664 亦 5865 青 
5666 意 5667 孝 5668 亿 5869 六 5970 益 
5071 洪 5672 询 5673 议 5674 谊 5875 译 
5076 异 5a77 杆 5678 加 5679 绎 5688 茵 


5881 戎 5082 因 5883 股 5884 音 5685 阴 
5886 姻 5087 难 5088 恨 5089 温 5098 守 
5691 饮 5692 尹 5893 引 5894 隐 


第 51 区 


5161 印 5102 鞭 5163 翅 5164 轨 5165 湾 
5106 应 5167 缀 5168 荤 5109 莹 5110 车 
5111 获 5112 如 5113 迎 51 雪 赢 5115 虽 
5116 影 5117 轩 5118 硕 5119 觅 5120 的 
5121 拥 5122 佣 5123 隘 5124 狂 5125 刍 
5126 愉 5127 顺 5128 师 5129 虹 5136 沪 
5131 涌 5132 永 5133 惠 5134 勇 5135 用 
5136 风 5137 优 5138 伐 5139 杖 514f 光 
5141 由 5142 邮 5143 钠 5144 履 5145 油 
5146 游 5147 西 5148 有 5149 友 5156 者 
5151 傣 5152 利 5153 诱 5154 又 5155 田 
5156 过 5157 迪 5158 了 于 5159 备 5160 检 
5161 谍 5162 昌 5163 熏 5164 余 5165 俞 
5166 谷 5167 鱼 5168 伦 5169 渝 5178 注 
5171 性 5172 予 5173 娱 5474 和 十 5175 与 
5176 由 5177 再 5178 字 5179 普 5186 羽 
5181 玉 5182 域 5183 苹 5184 者 .5185 于 
5186 遇 5187 伦 5188 肉 5189 御 5198 仿 
5191 欠 5192 狱 5193 育 5194 准 


431 


432 


第 52 区 


5201 浴 5262 富 5263 葡 5264 预 5205 蕊 
5296 了 台 5267 罗 5208 洲 5269 顽 5210 元 
5211 后 5212 责 5213 原 5214 扔 5215 纺 
5216 园 5217 员 5218 圆 5219 装 5226 源 
5221 缘 5222 远 5223 苑 5224 昕 5225 外 
5226 院 5227 日 5228 约 5229 城 5236 暑 
5231 钥 5232 岳 *5233 兽 5234 月 5235 慌 
5236 阅 5237 靳 5238 云 5239 跟 5240 习 
5241 隅 5242 人 允 5243 运 5244 5245 宣 
5246 星 5247 前 5248 孕 524 引 攻 5250 克 
5251 杂 5252 裁 5253 茂 5254 灾 5255 宗 
5256 载 5257 再 5258 在 5259 咱 5260 挫 
5261 哲 5262 答 5263 导 5264 驻 5265 葛 
5266 遭 5267 精 5268 蓝 5269 幕 5278 吉 
5271 旱 5272 澡 5273 导 .5274 躁 5275 巢 
5276 造 5277 皇 5278 杜 5279 爆 5286 责 
5281 择 5282 则 5283 泽 5284 驮 5285 和 在 
5286 增 5287 悄 5288 曾 5289 朵 5290 扎 
5291 转 5292 洁 5293 札 5294 轧 


第 53 区 


5361 钢 5362 曾 5303 了 及 5364 栅 5385 榨 
5306 此 5307 车 5308 炸 5309 话 5310 搞 
5311 训 5312 室 5313 窄 5314 俩 5315 寨 
5316 腕 5317 车 5318 往 5319 类 5328 洛 


5321 塌 5322 斩 5323 思 5324 靳 5325 展 
5326 蕉 5327 栈 5328 由 5329 战 5330 站 
5331 淇 5332 综 5333 樟 5334 章 5335 闵 
5336 漳 5337 张 5338 掌 5339 涨 5346 村 
5341 5342 帐 5343 账 5344 全 .5345 孙 
5346 间 5347 险 5348 招 5349 阳 5350 技 
5351 沼 5352 赵 5353 照 5354 章 5355 兆 
5356 刻 5357 召 5358 遮 5359 折 5360 者 
5361 直 5362 稻 5363 者 5364 销 5365 莽 
5366 这 5367 浙 5368 珍 5369 攻 5370 由 
5371 查 5372 钻 5373 鱼 5374 贞 5375 桂 
5376 侦 5377 控 5378 次 5379 诊 5380 震 
5381 振 5382 慎 5383 阵 5384 甘 5385 反 
5386 稳 5387 征 5388 多 5389 争 5396 和 酝 
.5391 整 5392 抒 5393 正 5394 改 


第 54 区 


5461 帧 54902 症 5403 郑 5464 证 5485 艺 
5466 枝 54907 支 5488 野 5409 蝴 5410 知 
5411 肢 5412 购 5413 汁 5414 之 5415 织 
5416 职 5447 直 5418 植 5419 殖 5420 执 
5421 公 5422 企 5423 址 5424 指 5425 止 
5426 趾 5427 只 5428 旨 5429 纸 5438 起 
5431 曹 5432 撞 5433 至 5434 致 5435 置 
5436 帜 5437 娃 5438 制 5439 智 5446 芍 
5441 稚 5492 质 5443 灾 5444 阁 5445 灌 
5446 治 5447 室 5448 中 5449 息 5450 中 


433 


4314 


5451 钟 5452 诡 5453 终 5454 种 5455 肿 
5456 重 5457 伸 5458 公 5459 舟 5468 有 周 
5461 州 5462 洲 5463 次 5464 缆 5465 机 
5466 有 时 5467 曲 5468 忽 5469 煞 5470 宙 
5471 县 5472 胁 5473 球 5474 株 5475 蛛 
5476 米 5477 狂 5478 诸 5479 读 5486 乏 
5481 和 必 5482 灿 5483 者 5484 扩 5485 蜂 
5486 星 5487 主 5488 著 5489 柱 5498 盟 
5491 星 5492 贮 5493 针 5494 货 


第 55 区 


5501 住 5502 注 5503 祝 5564 驻 5565 抓 
5506 乓 5567 搜 5568 专 5569 儒 5510 转 
5511 担 5512 赚 5513 答 5514 桩 5515 雍 
5516 装 5517 妆 5518 阐 5519 壮 5520 状 
5521 椎 5522 网 5523 追 5524 才 5525 附 
5526 名 5527 课 -5528 准 5529 捉 5530 扫 
5531 划 5532 桌 5533 琢 5534 苗 5535 醒 
5536 叹 5537 着 5538 灼 5539 波 5540 冀 
5541 咨 5542 资 5543 姿 5544 滋 5545 淄 
5546 孜 5547 荣 5548 仔 5549 地 5556 六 
5551 子 5552 自 5553 溃 5554 字 5555 划 
5556 棕 5557 踪 5558 宗 5559 综 5566 总 
5561 纵 5562 分 5563 走 5564 泰 5565 其 
5566 租 5567 足 5568 卒 5569 族 5570 祖 
5571 诅 5572 阻 5573 组 5574 销 5575 第 
5576 路 5577 闪 5578 最 5579 罪 5580 得 


5581 意 5582 诈 5583 堪 5584 人 5585 非 
5586 像 5587 作 5588 坐 5589 座 5590 
?591 5592 5593 5594 


第 56 区 


5661 子 5602 相 5603 开 5604 丐 5665 十 
5686 填 5667 丕 5608 百 5609 孙 5610 责 
5611 郑 5612 杜 5613 | 5614 晶 5615 | 
5616 心 5617 和 于 5618 天 5619 艾 5626 后 
5621 包 5622 秽 5623 筷 5624 堪 5625 艇 
5626 摆 56027 纹 5628、5629 各 5630 最 
5631 世 5632 此 5633 开 5634 华 5635 率 
5636 者 5637 根 5638 民 5639 夯 5646 屠 
5641 说 5642 原 5643 折 5644 屠 5645 攻 
5646 记 5647 区 5648 医 5649 医 56050 攻 
5651 荚 5652 卦 5653 池 5654 上 5655 蚤 
5656 划 5657 到 5658 志 5659 章 -5668 刘 
5661 刺 5662 剖 5663 划 5664 贡 5665 裔 
5666 5667 刚 5668 划 5669 划 5676 别 
5671 门 5672 冉 56731 5674 作 5675 优 
5576 仿 5677 仁 5678 伦 5679 伟 5688 雪 
5681 侈 5682 化 5683 仔 5684 价 5685 作 
5686 信 5687 伦 5688 优 5689 位 5699 作 
5691 作 5692 估 5693 佚 5694 和 


435 


436 


第 57 区 


5761 俐 5762 伦 5763 促 5764 人 5765 人 千 
5796 介 5767 依 5768 传 5769 候 5716 作 
5711 从 5712 傣 5713 俺 5714 们 5715 休 
5716 件 5717 佬 5718 作 5719 合 5728 全 
5721 但 5722 促 5723 传 5724 人 角 5725 作 
5726 傈 5727 傅 5728 借 5729 众 5738 伟 
5731 傣 5732 保 5733 您 5734 像 5735 个 
5736 信 5737 住 5738 候 5739 债 5746 重 
5741 售 5742 个 5743 俱 5744 人 惕 5745 八 
5746 使 5747 售 5748 俱 5749 售 5756 人 和信 
5751 像 5752 偿 5753 众 5754 佐 5755 介 
5756 优 5757 售 5758 全 5759 有 余 5760 会 
5761 念 5762 姐 5763 合 5764 余 5765 杂 
5766 兮 5767 黑 5768 党 5769 巷 5770 捍 
5771 功 5772 汪 5773 币 5774 色 5775 习 
5776 总 5777 风 5778 咒 5779 二 5780 普 
5781 毫 5782 蛮 5783 训 5784 课 5785 育 
5786 真 5787 训 5788 赢 5789 赢 5790 总 
5791; 5792 珀 5793 六 5794 沪 


第 58 区 


5891 淡 5802 一 5803 家 5804 忆 5805 1 
5896 评 5867 讶 5868 刘 5869 座 5810 诺 
5811 讷 5812 许 5813 词 5814 诉 5815 记 
5816 证 5817 放 5818 话 5819 诗 5820 广 


5821 诗 5822 该 5823 说 5824 诉 5825 诊 
5826 诡 5827 桨 5828 训 5829 请 5830 秆 
5831 话 5832 认 5833 需 5834 识 .5835 普 
5836 讽 5837 座 5838 询 5839 评 5840 诬 
5841 评 5842 谍 5843 刘 5844 刘 5895 论 
5846 诅 58d7 说 5848 详 5849 论 5850 议 
5851 诺 5852 说 5853 淹 5854 弟 5855 谥 
5856 请 5857 席 5858 法 5859 谁 5868 请 
5861 谢 5862 刘 5863 识 5864 | 5865 备 
58668 5867 陆 5868 了 5869 阱 5876 承 
5871 陆 5872 陈 5873 卫 ,5874 了 区 5875 了 
5876 防 5877 但 5874 聊 5879 队 5880 寻 
5881 限 5882 隐 5883 隐 5884 隐 5885 隶 
5886 冰 5887 印 5888 部 5889 部 5898 部 
5891 二 5892 对 5893 撮 5894 邮 


第 59 区 


5961 匈 5992 部 5983 邦 5994 避 5965 亲 
5966 部 5987 郑 5968 旬 5969 另 5918 部 
5911 邮 5912 部 5913 痢 5914 宛 5915 部 
5916 郊 5917 邵 5918 即 5919 部 5928 贸 
5921 部 5922 寻 5923 部 5924 野 5925 宫 
5926 考 5927 刍 5928 旬 5929 助 5938 荔 
5931 动 5932 劾 5933 努 5934 动 5935 旬 
5936 对 5937 粤 5938 鼻 5939 机 5946 3 
5941U 5942 内 5943 曾 5944 人 5945 旭 
5946 葵 5947 福 5948 盆 5949 亚 5956 盘 


5951 就 5952 到 5953 履 5954 站 5955 寺 
5056 所 5957 此 5958 圳 5959 护 5968 所 
5961 地 5962 抓 5963 折 5964 扳 5965 持 
5966 揽 5967 基 5968 拓 5969 抓 5976 括 
5971 坨 5972 提 5973 塌 5974 协 5975 邱 
5976 基 5977 捐 5978 地 5979 医 5989 换 
5981 搞 5982 坡 5983 朝 5984 坦 5985 戎 
5986 丧 5987 塌 5988 区 5989 烷 5998 荐 
5991 间 5992 塌 5993 5994 堆 


第 60 区 


6061 捧 6882 霹 6803 场 6064 妹 6885 所 
6886 夫 6897 明 6888 提 6009 撒 6010 所 
6941 拥 6912 最 6013 雯 6814 提 5015 担 
6916 荤 6917 于 6818 堵 6819 ”60920 苇 
6621 范 6822 革 6023 革 6624 芒 6025 商 
6826 雪 6827 才 6628 药 6829 甘 6038 殉 
6831 芳 6032 带 6833 荣 6034 英 6035 艺 
6636 音 6837 蕊 6038 芷 6639 芮 6846 商 
6841 萃 6842 基 6843 蕉 6644 药 6845 其 
6846 藉 6947 营 6848 革 6049 艺 6059 功 
6851 芒 6852 茉 6853 背 6654 某 6855 藻 
6956 其 5857 首 6958 站 6859 萌 6860 商 
0661 蔡 6862 茶 6963 苍 6864 若 65065 前 
6966 草 6067 鞋 6968 荣 6669 廊 69709 洛 
pg71 著 6872 黄 6073 落 6674 革 6075 蕊 
587R6 间 6877 黄 6878 尚 6679 菜 6080 送 


6881 基 6882 共 6983 在 6884 荐 6085 对 
5986 芝 5687 胡 6888 车 6889 荣 6898 葡 
5691 营 6892 况 6693 素 6094 这 


第 61 区 


6161 莫 6162 芒 6103 其 6104 英 6165 苏 
6196 葡 6167 东 61868 蕊 61099 革 6116 音 
6111 贡 6112 著 6113 裴 6114 莫 6115 雁 
6116 莅 6117 茶 6118 东 6119 草 6128 曾 
6121 获 6122 获 6123 莫 6124 芝 6125 黄 
6126 营 6127 寻 6128 昔 6129 其 6136 
6131 蒜 6132 攻 6133: 菜 6134 蓝 6135 攻 


6136 茂 6137 莒 6138 芗 6139 葛 6146 和 共 
5141 草 6142 蔗 6143 葛 5144 昔 6145 六 
6146 薪 6147 落 6148 营 6149 营 6158 蔓 
6151 蒙 -6152 芒 6153 菌 6154 查 6155 菏 
6156 意 6157 烛 6158 芒 6159 藏 6169 蔷 
6161 剖 6162 鞭 6163 芯 6164 蓝 6165 项 
6166 殴 6167 草 6168 美 6169 蔬 6178 章 

71 芒 -6172 奈 6173 著 6174 草 .6175 和 莫 
6176 症 6177 蓓 6178 萄 6179 高 6180 获 
6181 荔 6182 萝 6183 医 5184 藉 6185 荡 
6186 获 6187 蒜 6188 蒜 6189 槛 6198 草 
6191 蕉 5192 蔓 6193 荐 6194 莘 
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第 62 区 


6261 东 6202 藏 6203 蘑 6294 莫 6205 昔 
6286 草 6207 蕨 6208 获 6289 草 6210 茧 
6211 车 6212 著 6213 菜 6214 莫 6215 奸 
6216 莫 6217 筱 6218 草 6219 药 6228 薇 
6221 莽 6222 藉 6223 幕 0224 贡 6225 妆 
0226 花 6227 蔓 6228 划 6229 基 0230 兽 
6231 和 葵 6232 莫 6233 划 6234 基 6235 才 
6236 蛮 6237 齐 6238 交 6239 栖 6246 问 
6241 要 6242 装 6243 身 6244 碟 6245 地 
6246 坎 6247 尴 6248 寺 6249 扣 6259 技 
6251 掉 6252 捐 6253 扒 6254 扫 6255 车 
6256 拆 6257 提 6258 所 6259 持 6260 报 
6261 抱 6262 押 6263 握 6264 技 6265 持 
6266 捆 6267 揽 6268 拥 6269 拱 6278 皖 
6271 扩 6272 氢 6273 拘 6274 挂 6275 报 
6276 皖 6277 扒 6278 撞 6279 护 6280 所 
6281 抱 6282 拔 6283 拓 6284 揭 6285 基 
6286 撞 6287 拥 6288 扎 6289 捐 6290 操 
6291 押 56292 报 6293 摧 6294 撤 


第 63 妇 


6381 招 6392 搬 6303 的 6364 撒 6305 掉 
6366 撤 6367 提 60398 拔 6309 提 6310 提 
6311 插 6312 撒 6313 接 6314 全 6315 式 
6316 和 疏 65317 款 6318 路 -6319 叱 6326 册 


6321 籽 6322 妇 6323 助 6324 紫 6325 余 
6326 卫 6327 叶 6328 上 6329 旋 6336 区 
6331 昕 6332 虐 6333 吡 6334 鹃 6335 员 
6336 拘 6337 辐 6338 嚼 6339 昌 -6346 旦 
6341 蝗 6342 哈 6343 欧 6344 只 6345 旧 
6346 路 6347 二 6348 此 6349 医 6350 时 
6351 呆 6352 哎 6353 外 6354 喇 6355 呈 
6356 晓 6357 轮 6358 屿 6359 仙 6360 哟 
6361 呆 6362 哮 6363 哌 6364 险 6365 吕 
6366 喀 6367 畔 6368 时 6369 谋 6378 蚁 
6371 眼 6372 啤 6373 号 6374 咏 6375 时 
6376 项 6377 嚼 6378 断 6379 工 6380 咱 
6381 啼 6382 哗 6383 旱 6384 际 6385 革 
6386 轿 6387 6388 盯 6389 吹 6398 别 
6391 放 6392 喝 6393 只 6394 区 


第 64 区 


0491 暗 6402 著 6403 足 6464 院 6465 名 
6496 屿 6467 删 6408 芝 6409 只 6410 
6411 四 6412 吗 6413 时 6414 蜀 6415 提 
6416 别 6417 旺 6418 咱 6419 啼 6420 凌 
0421 此 6422 陵 6423 状 6424 嘱 6425 院 
6426 味 6427 看 6428 奈 6429 郎 6430 上 
6431 臣 6432 诊 6433 苇 6434 奈 6435 咀 
6436 顺 6437 唱 6438 蛛 6439 涂 6440 能 
6441 茎 64q2 阐 6443 蛙 6444 哺 6445 呈 
0446 竹 6447 时 6448 十 6449 原 6450 三 
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545| 廊 56952 得 6453 肪 6454 圈 5455 放 
6q56 启 0457 堪 6958 啼 6459 喉 6468 了 
5961 叭 6462 虽 6463 拾 6464 候 5465 此 
6d465 乃 6q67 诺 5468 供 6469 肚 6478 褒 
547 ;1 座 8q72 风 59473 医 6474 克 6975 浇 
6q76 莉 0d77 口 5478 园 6479 回 6488 图 
5481 四 6462 图 6483 轿 6484 图 6485 力 
6d36 轩 6q87 图 6938 赎 6489 帷 6498 四 
6491 加 6q92 转 5493 屿 6494 由 


第 65 区 


6564 肉 6592 查 6563 覃 6564 贬 5565 机 
6586 履 6567 败 6508 刀 6569 昕 6510 起 
6511 虐 6512 好 6513 上 内 6514 番 6515 几 
6516 由 6517 当 6518 央 6519 骨 65290 迪 
5521 邮 .6522 册 6523 贫 6524 网 6525 洛 
6526 具 6527 凤 6528 崩 6529 娇 6530 鸭 
6531 峰 6532 旷 6533 妹 6534 炭 6535 央 
6536 岗 6537 此 6538 由 6539 曰 6548 岂 
6541 嵌 6542 皮 6543 凯 6544 则 6545 怖 
6546 山 6547 明 6548 灵 6549 虹 6558 岂 
6551 嵊 6852 凌 6553 财 6554 诫 6555 上 
5556 是 6557 转 6558 络 6559 台 6568 4 
6561 稍 6562 租 6563 潮 6564 符 6565 和 后 
6566 徕 6567 失 6568 竺 6569 稚 6570 和 巷 
6571 徽 6572 币 6573 笛 5574 和 6575 和 
6576 狐 6577 状 6578 久 6579 独 6580 狂 
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『 
2 
f 
2 
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6581 狐 6582 独 6583 儿 6584 独 6585 儿 
-6586 次 6587 将 6588 儿 6589 奖 6596 儿 
6591 猎 6592 猴 6593 装 6594 着 


第 66 区 


6601 煞 6662 竹 6683 铸 6604 疾 6605 匈 
6686 凑 6607 辩 6668 镍 6689 针 6619 将 
6611 狐 6612 独 6613 狂 6614 产 6615 敌 
6616 效 6617 儿 6618 猿 6619 奖 6626 疾 
6621 效 6622 外 6623 胸 6624 娘 6625 疼 
6626 文 6627f+f 6628 声 6629 司 6638 改 
6631 儿 6632 惰 6633 乙 6634 公 6635 以 
6636 昼 6637 履 6638 筷 6639 敢 6648 独 
6641 饶 6642 必 6643 代 6644 懒 6645 蛙 
6646 熏 6647 此 6648 席 6649 皮 6650 筷 
6651 床 6652 摩 6653 度 6654 庆 6655 真 
6656 库 6657 广 6658 厂 6659 度 .6660 讨 
6661 廊 6662 唐 6663 亡 06664+ 6665 忆 
6666 导 6667 半 6668 居 6669 层 6676 上 慑 
6671 刷 6672 尾 6673 属 6674 发 6675 愉 
6676 疏 6677 愉 6678 尾 6679 悟 6686 居 
6681 至 6682 但 6683 快 6684 作 6685 必 
6686 蛋 6687 要 6688 慰 6689 悄 6696 司 
6691 怀 6692 情 6693 恺 6694 怕 
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第 67 区 


6701 属 6702 悍 6793 蛋 6764 悚 6705 履 
6766 悍 6767 悍 6768 慢 6769 梯 6710 梭 
6711 改 6712 翌 6713 慰 6714 悄 6715 刷 
6716 届 6717 俱 6718 眉 6719 慢 6720 惯 
6721 叔 6722 懈 6723 稀 6724 司 6725 惰 
6726 6727 民 6728 情 6729 慢 6730 改 
6731 收 6732 届 6733 昼 6734 情 6735 和 地 
6736 槛 6737 日 6738 目 6739 半 -6746 头 
6741 岗 6742 阅 6743 闵 6744 回 6745 
6746 阁 6747 阅 6748 国 6749 几 6750 半 
6751 阔 6752 几 6753 阅 6754 较 6755 国 
6756 图 6757 阅 6758 六 6759 卫 6760 
6761 并 6762 装 6763? 6764 治 6765 沪 
6766 汉 6767 祷 6768 沉 6769 沐 6776 油 
6771 沌 6772 沿 6773 汝 6774 汪 6775 汶 
6776 该 6777 济 6778 渤 6779 滑 6786 染 
6781 浅 6782 消 6783 6784 泗 6785 皆 
6786 没 6787 痪 6788 添 6789 法 6790 洋 
6791 沱 6792 泓 6793 泥 6794 汉 


第 68 区 


0801 活 6802 消 6883 注 6864 潜 6865 渍 
6806 泣 56807 酒 6808 泊 6869 泊 6819 注 
6811 滩 6812 洗 6813 漳 6814 涤 6815 济 
5816 锌 6817 津 6818 瘾 6819 注 6820 落 


6821 沫 5822 酒 6823 泥 6824 消 6825 水 
6826 泊 6827 浠 6828 湛 6829 浣 6836 清 
6831 湛 6832 浙 6833 灌 .6834 汪 6835 水 
6836 加 6837 温 《838 洽 6839 闭 6846 尝 
6841 注 6842 沪 6843 溪 6844 测 6845 兴 
6846 汪 6847 酒 6848 狼 6849 省 68508 淄 
6851 激 6852 滥 6853 渤 6854 泻 6855 混 
6856 滑 -6857 河 6858 治 68559 洲 6868 瀑 
60861 兴 6862 江 6853 清 6864 溧 6865 海 
6866 滥 6867 洱 -6868 湛 6869 省 6876 浴 
6871 注 6872 济 6873 混 6874 满 6875 举 
6876 漠 6877 流 6878 清 6879 淖 6880 混 
6881 壮 6882 激 6883 省 6884 清 6885 沾 
6886 流 6887 渡 6888 济 6889 浙 6896 某 
6891 弟 6892 漳 6893 泥 6894 车 


第 69 区 


0991 淮 6982 污 6963 洲 6984 得 6985 注 
6986 活 6997 洒 6998 泊 6969 入 6919 瀑 
6911 革 6912 江 6913 宣 6914 宿 6915 泪 
6916 视 6917 省 6918 ~ 6919 完 6920 宕 
6921 客 6922 宥 6923 宇 6924 寅 ' 6925 塞 
6926 千 60927 窜 6928 冤 6929 寨 6936 宴 
0931 喜 6932 寒 6933 这 6934 证 6935 这 
60936 衣 6937 人 壕 6938 次 6939 这 6948 名 


h941 运 5942 旋 6943 反 6944 着 6945 症 
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6h9d6 通 6947 训 6948 道 6949 肖 6958 这 
6951 逮 6952 适 6953 这 6954 误 6955 道 
6456 追 6957 道 6958 温 6959 溃 6966 痢 
6961 遇 6962 效 6963 退 6964 站 6965 让 
6966 翼 6967 逮 6468 音 6969 间 6970 本 
69q71 直 6972 条 6973 藏 6974 员 6975 由 
6976 展 6977 局 6978 层 6979 展 6986 展 
63981 攻 6982 开 6983 加 6984 强 6985 业 
6986 如 6987 壮 6988 中 6989 奴 6996 所 
6991 妍 6992 站 6993 6994 机 
第 78 区 


7661 录 7692 姊 7883 妇 7604 垦 7065 好 
7686 刀 7067 姐 7868 旭 7809 姻 ?6010 记 
7811 直 7812 毁 7613 煌 7614 变 7815 坟 
7816 媳 7017 达 7818 怒 7919 寻 7026 如 
7821 7622 芝 7023 娣 7824 九 7925 灿 
7826 寻 7627 娃 7028 嫌 7629 娼 7038 妈 
7031 嫌 7632 摘 7033 旭 7634 垦 7035 入 
7836 矣 7637 录 7038 媒 7639 媳 ?040 垦 
7041 娘 7642 姥 7843 蓝 7644 揪 7645 妨 
7846 媒 7647 巡 7048 召 7649 婷 7058 菠 
7851 灶 .7652 恬 7953 册 7654 娘 7055 妖 
7856 有 7857 索 7958 笠 7659 某 7660 齐 
7861 子 7662 部 7963 孢 7064 7865 台 
7666 和 7667 驳 7668 障 7669 努 7670 蕴 
7671 蓝 7672 坦 7873 骆 7074 杉 7675 届 
7976 别 7677 难 7078 验 7679 监 7080 起 


7681 基 7082 7883 驻 7684 林 7685 届 
7086 颖 7687 莫 7088 莫 7689 和 7898 纤 
7891 结 7692 络 7093 织 7094 红 

第 71 区 


7161 红 7102 丝 了 163 纾 7164 绀 了 165 给 
7166 统 ?107 结 7198 缆 了 7199 继 了 116 给 
7111 结 7112 纵 了 113 练 7 了 114 7115 和 
7116 弹 7117 续 7118 绮 7119 综 了 126 绸 
7121 强 7122 继 7 了 123 人 得 7124 红 了 125 继 
7126 缩 7127 缁 了 128 缂 了 129 网 了 136 绅 
7131 旨 7132 绩 7133 7134 睦 了 135 缘 
7136 龟 7137 乡 7138 红 7139 镇 7 了 146 短 
7141 编 7142 效 了 7143 经 7144 千 7145 绽 
7146 多 7147 绥 7148 销 7149 绎 了 150 纪 
7151 纺 了 152 续 7153 赠 ?154 揭 7155 从 
7156 旨 7157 疆 了 158 狗 7159 双 7 了 7166 贡 
7161 4 7 了 162 当 7163 营 7 了 164 末 7165 缴 
7166 带 了 167 荔 了 168 孜 7169 还 了 176 抬 
7171 我 7172 茹 了 173 百 7174 抬 了 175 碌 
7176 尖 7177 表 7 了 178 和 7179 项 了 186 姥 
7181 莉 7182 珀 7183 铬 了 184 径 了 185 理 
7186 惫 了 187 拱 7188 开 7189 捕 了 198 朱 
7191 担 7192 卫 了 193 际 7194 钢 
第 72 区 


7201 了 琛 7202 据 7263 更 7264 答 7205 继 
7266 下 7207 擅 7208 舌 7209 玉 7216 汕 
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7211 措 7212 吏 7213 烘 7214 故 7215 斑 
7216 璋 7217 妹 7218 如 7219 外 7 了 7220 届 
7221 仅 7222 现 7223 坚 7224 回 7225 提 
7226 帮 7227 机 7228 村 7229 权 7236 权 
7231 权 7232 析 7233 枇 7234 检 7235 埋 
7236 机 7237 横 7238 样 7239 林 7 了 248 检 
7241 间 7242 杭 7243 想 7244 标 了 7245 考 
7246 烽 7247 相 了 248 槛 7249 板 7250 样 
7251 梢 7252 机 7253 李 7254 柚 了 255 机 
7256 村 7 了 257 枪 7258 检 7259 构 7260 析 
7261 标 7 了 7262 熔 7 了 7263 可 7264 桔 7265 楼 
7266 极 7267 模 7 了 268 栓 7269 植 了 278 杰 
7271 档 7272 枉 7 了 273 桥 7274 柏 7275 梯 
7276 权 7277 检 7278 某 7279 来 了 288 类 
7281 校 7282 棚 7283 林 7284 档 了 285 磁 
7286 棉 7287 样 7288 林 7289 根 7298 村 
7291 枚 7292 标 7293 蓝 7294 术 
第 73 区 

7301 要 7362 楼 7363 术 7304 棕 7305 要 
7386 标 7397 根 7308 棱 .7389 柑 7316 村 
7311 桔 7312 樟 7313 模 7 了 314 朴 7315 检 
7316 奶 7317 机 7318 机 7319 相 了 7326 村 
7321 相 7322 樟 7323 梯 7324 棺 7325 相 
7326 极 7327 杯 7328 桶 7329 裤 7336 梯 
7331 格 7332 株 7333 模 7334 梅 7335 名 
7336 术 7337 榕 7338 档 7339 栖 7346 检 
7341 档 7342 械 7343 桥 7344 楼 7345 弟 
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7346 栅 7347 标 7348 枚 7349 台 7358 对 
7351 极 7352 检 7353 栓 ?7354 榴 7355 覃 
7356 村 7357 桥 7358 禄 7359 往 7366 榴 
7361 模 7362 紧 7363 株 7364 献 7365 基 
7366 费 7367 理 7368 痪 7369 萝 7376 项 
7371 难 7372 和 看 7373 莘 7374 聂 7375 宜 
7376 芍 7377 韦 7378 罗 7379 丫 7389 困 
7381 新 7382 加 7383 软 7384 轮 7385 坦 
7386 新 7387 加 7388 轩 7389 加 7390 输 
7391 办 7392 冰 7393 禁 7394 胡 


第 74 区 


7401 驾 7402 业 7463 转 7464 较 7465 圈 
7406 趣 7467 支 74608 使 7469 夏 7419 载 
7q11 串 7412 崔 7413 电 7414 歌 7415 堆 
7416 感 7417 区 7418 令 7419 汪 7420 更 
7421 虞 7422 肢 7423 支 7424 娟 7425 上 只 
7426 肝 7427 昊 7428 县 7429 旱 7438 尼 
7431 时 7432 网 7433 员 7434 晶 7435 答 
7436 晶 7437 旦 7438 洒 7439 归 7448 闭 
7441 晟 7442 轮 7443 晃 7444 螺 7445 族 
7446 睛 7447 略 7448 晶 7449 仿 -7456 隐 
7451 乃 7452 眼 ?453 苹 7454 荐 7455 良 
7456 说 7457 晤 7458 次 7459 黄 7466 骸 
7461 贻 7462 划 7463 营 7464 凡 7465 暴 
7466 岂 7467 孝 7468 的 7469 责 7478 冉 
7471 赎 7472 上 凯 7473 负 7474 现 ?475 赤 
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7476 银 ?477 观 7478 对 7479 锯 7480 东 
7481 票 7482 北 7483 未 7484 粘 7485 畏 
7486 特 7487 御 7488 外 7489 等 7490 篇 
7491 稿 7492 潮 7493 和 蕴 7494 攻 


第 ?75 区 


7561 攻 7502 7503 乾 7504 称 7505 避 
7596 妊 7567 孝 7508 猎 7509 整 7510 各 
7511 邯 7512 蜂 7513 气 7514 气 7515 介 
7516 和 震 7517 氧 7518 毛 7519 和 全 7520 和 所 
7521 复 7522 久 7523 束 7524 康 7525 舟 
7526 幅 7527 笛 7528 爱 .7529 著 7536 朋 
7531 且 7532 彤 7533 育 7534 肝 7535 有 
7536 肤 7537 有 能 7538 能 7539 盘 .7546 着 
7541 职 7542 隋 7543 及 7544 卫 7545 豚 
7546 脚 7547 肿 7548 崩 7549 旧 7556 腾 
7551 步 7552 胸 7553 胶 7554 肥 7555 
7596 朋 7557 用 7558 有 验 7559 肝 7560 有 
7561 导 7562 殿 7563 且 7564 豚 7565 肛 
7566 用 7567 彼 7568 甩 7569 际 7570 哺 
7571 用 7572 对 7573 殿 7574 逐 7575 院 
7576 用 7577 胰 7578 彤 7579 肠 7586 朋 
7581 翌 7582 有 验 7583 肤 7584 了 对 7585 局 
7586 莹 7587 胺 7588 腾 7589 腺 7590 且 
7591 肛 7592 际 7593 腥 7594 入 
第 76 区 


7501 有 7602 腾 了 693 短 7664 坎 7685 坎 


450 


7698 答 7609 胞 7616 纳 
7613 话 7614 肪 7615 蚊 
7618 妖 7619 麦 7628 将 
7623 施 7624 旋 7625 放 
7628 旗 7629 资 7636 断 
7633 迷 7634 业 7635 桂 


7 粒 7638 锡 7639 烨 7648 样 


7643 粘 了 7644 样 7645 壳 
7648 想 7649 想 7658 保 
了 653 想 7654 燃 7655 焊 


5 7658 丧 7659 业 7666 蜂 


到 7663 圭 '7664 村 7665 必 


蝎 7668 塌 7669 良 7670 记 
谨 7673 庆 7674 和 7675 礼 


一 4」 一 4 一 J 


= 


7678 社 ?7679 宵 7686 锌 
7683 被 ?684 祠 ?685 补 
77688 禅 ?689 视 7698 社 
7693 东 7694 志 
第 77 区 
7763 毒 7764 焉 7765 乱 
7708 喜 7769 乱 7716 卡 
和 7714 检 7715 满 
了 18 幸 7719 者 7726. 久 
?7723 和 7724 确 7725 毒 
7728 研 7729 奇 7736 区 
7733 税 7734 区 7735 壮 


452 


7736 作 7737 伦 7738 巷 7739 盆 7746 和 
7741 确 7742 独 7743 嫩 7744 共 7745 柳 
7746 闸 7747 稠 7748 确 7749 碍 7759 区 
7751 寅 7752 确 7753 荷 7754 征 7755 做 
7756 伪 7757 得 7758 碑 7759 往 7760 区 
7761 从 7762 葆 7763 硬 7764 坦 7765 雁 
7706 向 7767 丛 7768 克 7769 琼 7779 春 
7771 广 7772 使 7773 落 7774 莽 7775 乔 
7776 上 时 7777 丁 7778 虐 7779 且 7786 胁 
7781 腕 7782 和 背 7783 督 7784 胎 7785 嫩 


7786 本 7787 胸 7788 上 隆 7789 睐 7790 内 


7791 赚 7792 肥 7793 眶 7794 肌 
利 78 区 


7891 紫 7802 脾 7803 窒 7804 昭 7805 区 
7866 登 7867 辕 7808 限 7809 肛 7810 革 
7811 柳 7812 晓 7813 著 7814 呆 7815 异 
7816 区 7817 政 7818 卜 7819 孙 7826 舍 
7821 棕 7822 七 7823 蛙 7824 显 7825 轩 
7826 团 7827 置 7828 轩 7829 需 7830 罗 
7831 署 7832 莫 7833 责 7834 伍 7835 裔 
7836 和 全 7837 筷 7838 入 7839 外 了 848 钊 
7841 和 7842 针 7843 捉 7844 闲 7845 匀 
7846 狗 ?7847 多 7848 针 7849 因 7850 抠 
7851 叙 7852 谷 7853 久 7854 锐 7855 名 
7856 詹 7857 锡 7858 狼 7859 罗 7860 外 
7861 钉 7862 短 7863 铸 7864 镇 7865 钱 
7866 钼 7867 查 7868 钢 7869 儿 7878 销 


7871 乱 7872 轮 7873 锐 7874 锐 7875 钙 
7876 丢 7877 铸 7878 角 7879 钳 7880 和 销 
7881 忽 7882 铁 7883 锁 7884 名 7885 乔 
7886 名 7887 可 7888 机 7869 铁 7890 埋 
7891 儿 7892 匆 7893 答 7894 和 


第 ?79 区 


7981 图 7982 全 7963 等 7994 条 了 7965 缮 
7986 铝 7967 科 7998 先 7969 错 7910 铁 
7911 因 1 7913 各 7914 锂 7915 畏 
7916 加 7917 刍 7918 知 7919 秒 79298 铀 
7921 钢 7922 银 7923 师 7924 铀 7925 钢 
7926 铺 7927 错 7928 千 7929 则 7938 者 
7931 锡 7932 锣 7933 钢 7934 稍 7935 村 
7936 铁 7937 锚 7938 秽 7939 错 "7946 二 
7941 狂 7942 镍 7943 争 7944 杀 了 79495 管 
7946 猴 7947 名 7948 内 7969 锁 7956 钢 
7951 锅 7952 罚 7953 答 7954 针 7955 多 
7956 稼 7957 和 7958 慑 .7959 翌 7968 旬 
7961 旬 7962 征 7963 铁 7964 团 7965 销 
7966 镭 7967 园 了 968 缕 7969 懂 7970 锁 
7971 钢 7972 带 7973 迷 7974 锡 7975 靶 
7976 复 7977 锣 7978 千 . 7979 德 7980 秘 
7981 鸭 7982 网 7983 姓 7984 锥 7985 秋 
7986 种 7987 穆 7988 穆 7989 稻 7998 我 
7991 枯 7992 稳 7993 程 7994 稚 


453 


454 


第 88 区 


8681 称 8002 秽 8603 荐 8064 夭 8665 顶 
8966 池 8667 拨 8088 绞 8669 铬 8919 香 
8011 散 8612 蒜 8013 昏 8614 前 8015 培 
8016 襄 8017 和 竟 8618 灼 8619 克 8028 欧 
8621 着 8022 生 86023 罗 -8624 基 8025 一 
8826 营 8627 欧 8628 休 8629 训 8036 问 
8831 奸 8632 箱 8633 笠 8634 阴 8035 条 
8036 着 8637 蛮 8038 棚 8039 葛 8640 商 
8041 模 8642 影 8643 讶 8644 移 8645 敬 
8646 式 8647 闲 8648 男 8649 准 8050 习 
8951 疯 8652 息 8053 营 8054 乔 8655 红 
8656 警 8657 葡 8858 六 8659 疗 8666 请 
8661 疙 8862 疝 8663 病 8664 疣 8865 将 
8066 阁 8667 将 8668 来 8869 将 8070. 痊 
8971 疲 8672 狂 8673 室 8674 帆 8675 半 
8676 将 8677 阁 8678 阅 8679 8688 窜 
8081 凉 8082 严 8083 镁 8684 阁 8885 痪 
8086 疾 8687 阐 8688 冯 8689 球 8090 闪 
8691 美 8692 瘘 8693 疗 8694 襄 


第 81 区 


8161 冯 8102 冯 8103 疗 3164 将 8195 谢 
8106 疗 8167 好 8108 闻 8169 疗 8110 间 
81tt 闻 8112 六 8113 疯 8114 摘 8115 壮 
8116 疗 8117 阁 8118 首 8119 首 8120 训 
8121 速 8122 宅 8123 窟 8124 密 8125 空 


8126 窗 8127 突 8128 案 8129 案 8136 答 
8131 符 8132 赛 8133 息 8134 让 8135 祝 
8136 宰 8137 社 8138 窜 8139 被 8148 祥 
8141 守 8142 窒 8143 补 8144 宰 8145 衬 
8 46 福 8147 补 8148 补 8149 被 8156 靖 
8151 宰 8152 神 8153 福 8154 宰 8155 着 
8156 衫 8157 裸 8158. 伏 8159 视 8160 和 窒 
8161 祷 8162 福 8163 视 8164 福 8165 浪 
8166 下 8167 表 8168 黎 8169 然 8170 郑 
3171 未 8172 邦 8173 霓 8174 帮 8175 锌 
8176 寿 8177 精 8178 耦 8179 芍 8186 料 
8181 大 8182 糖 8183 委 8184 雄 8185 租 
8186 表 8187 逢 8188 闫 8189 际 8190 敬 
8191 章 8192 预 8193 丘 8194 肌 


第 82 区 
8291 括 8292 侨 8293 舌 3204 括 .38295 俩 
8286 要 82907 额 8298 天 8299 戎 8216 红 
8211 本 83212 葵 83213 秒 8214 上 让 8215 记 
8216 岂 8217 遇 8216 下 8219 隐 8228 引 
8221 相 8222 时 3223 帅 8224 霄 8225 如 
8226 妊 8227 内 8228 权 8229 时 3236 轴 
8231 囊 8232 妊 8233 帖 8234 柯 8235 折 
8236 山 8237 山 8238 由 8239 是 3296 好 
8241 既 8242 旭 8243 副 8244 时 8295 术 
8246 坚 8297 蝴 8248 杆 8249 婚 5258 糯 
3251 巡 8252 炉 8253 料 8254 韩 8255 蜂 


455 


456 


8256 下 8257 晴 8258 恕 8259 类 8268 内 
8251 时 8262 虹 8263 晴 8269 粗 8265 岂 
82556 虐 8207 束 8268 昌 8269 媚 8276 旭 
8271 幅 8272 幅 9273 赎 8279 师 8275 骨 
8276 业 8277 晴 3278 蜡 8279 帆 8289 旭 
5281 峙 3282 刘 8283 几 8284 灿 8285 屿 
8286 蜡 287 赎 3288 螨 8289 妨 8299 闪 
8291 屿 8292 营 8293 同 8294 


8301 嵌 8302 归 833035 想 85304 彤 8305 虹 
8366 屿 8307 营 8308 83993 红 8319 是 
8311 时 8312 姑 8313 8314 条 8315 
8316 旦 3317 簿 8318 巾 8319 妨 8320 婚 
8321 旺 8322 怒 8323 媒 83240 炮 8325 入 
8326 煤 8327 攻 8328 喜 8329 晶 8330 备 
8331 星 8332 东 8333 甸 8334 稚 8335 
8336 人 学 8337 和 8338 当 8339 并 8348 
8341 和 8342 第 8343 简 8344 柴 8345 
8346 答 8347 菜 8348 笔 8349 简 8350 
8351 和 8352 当 8353 箱 8354 偶 8355 答 
8356 打 8357 华 8358 药 8359 答 8360 答 
8361 敬 8362 筠 8363 本 8364 第 8365 苑 
8366 稼 8367 蕉 8368 和 车 8369 美 8376 区 
人 8372 2 考 8373 革 8374 笃 8375 委 


Fe 四 让 3 [ 


车 9 8383 从 83814- 竹 8385 利 


8386 系 8387 香 8388 入 9389 芒 8390 看 
8391 算 8392 篇 8393 葵 8394 入 
第 84 区 


8481 和 8402 管 8403 葵 84gq9 获 8965 入 
hb 和 落 8dq97 和 由 5988 量 809 者 8916 愉 
8d411 旱 8d12 岂 8413 币 849149 分 38915 赫 
3416 般 8q17 种 3318 秘 84419 他 4820 得 

22 船 8023 人 能 8024 侍 8925 弟 

27 估 3428 俏 829 储 8438 午 

32 雪 8433 生 8434 架 8435 架 
8436 某 8437 村 8438 其 8939 次 8498 罗 
8441 章 84q2 撤 8943 灸 849d 籼 8q35 炸 
8446 和 8qd7 精 8498 时 8649 灯 8450 案 
8451 竖 8452 关 8453 粽 8454 烷 8455 粮 
8456 糙 8457 糖 8458 精 8459 业 8460 刹 
8461 报 8462 有 8463 梧 8464 界 8465 误 
84606 合 8467 考 8468 青 89069 前 8476 病 
8471 番 8472 曙 8473 条 8d474 林 8475 基 
8476 荣 8977 本 8478 豆 8479 获 8480 莉 
8481 进 8482 起 8483 才 8484 起 8485 项 
8d486 报 8487 攻 8488 殉 8489 或 8499 机 
8d491 酬 8492 本 8q93 柄 8491 醋 

第 85 区 


8581 杖 8502 酝 3583 酸 83594 酷 8585 丁 
896 苹 8597 本 。8508 配 8599 酰 8510 重 
2 本 8512 栈 8513 酬 8514 醒 8515 栈 


457 


458 


85i0 蓝 8547 覃 8518 配 8519 本 85208 贾 
3521 覆 3522 薛 8523 酌 8524 本 8525 用 
85 和 衣 8527 夏 8528 如 8529 契 8530 大 
8531 束 8532 史 8533 跟 8534 中 8535 跌 
8535 路 .8537 跌 8538 时 8539 四 8548 中 
8541 吃 8542 财 8543 黑 8544 跆 8545 中 
8546 路 8547 蹲 8548 跳 8549 是 8559 路 
3551 发 ea. 8553 展 8554 距 8555 中 
?86 购 8557 申 8558 路 8559 路 8568 名 
3S61 哇 8562 躁 8563 中 8564 题 8565 中 
8565 丹 8567 中 8568 足 8569 踩 8570 中 
3571 叶 8572 跨 8573 肾 8574 听 8575 如 
8575 医 8577 堵 8578 加 8579 箭 8580 萎 
8551 莉 8582 距 8583 履 8584 委 8585 角 
8586 和 8587 杀 8588 氏 8589 狐 8590 明 
3591 献 8592 篇 8593 侯 8594 车 
第 86 区 


8661 胡 8602 解 8683 角 8664 和 车 8685 站 
4506 规 .8607 要 8608 需 8609 要 8610 要 
8611 零 8612 需 8613 村 8614 要 8615 和 
8616 寺 8617 雪 8618 竹 8619 基 8628 冯 
8621 药 8622 胡 8623 基 8624 帮 8625 医 
8626 规 8627 提 8628 晶 8629 量 8638 黑 
8 后 1 住 8632 华 38633 售 8634 际 8635 委 
8635 星 8637 人 要 8638 于 8639 带 8646 攻 
8541 攻 8642 芍 8643 医 8644 著 8645 局 


8646 读 8697 钱 8648 芒 .8649 扔 8650 二 
8651 站 8652 访 8653 鲸 - 8654 主 8655 党 
8656 冶 8657 持 8658 庄 8659 针 8669 儿 


8651 旧 86p3 着 8664 鲜 8665 备 
8566 钙 8667 弯 8668 外 8669 鲜 8670 和 
8671 付 8672 关 8673 驴 8674 前 8675 生 
8676 苇 8677 鲁 8678 持 .8679 银 8688 旭 
8681 馈 8682 襄 8683 夫 8684 负 8685 费 
8686 后.8687 疙 86 例 谍 8689 氏 8698 旬 
8691 纺 8692 让 8693 久 8694 役 


惠 87 区 


87g1 营 8702 铺 8703 寓 3794 钳 8705 秘 
8766 讲 8767 诈 8768 氏 8709 龟 8710 重 
8 了 1 第 -8712 轿 8713 典 87 14 请 8715 蚀 
8 站 6 粗 8 到 了 者 8718 吉 8719 新 8726 打 
8771 天 8722 物 8723 困 8724 糟 8725 攻 
8726 艇 8727 霹 8728 荐 .8729 和 前 8738 芋 
8731 毅 8732 井 8733 锅 8734 伯 8735 租 
8736 谷 8737 航 8738 散 8739 针 8740 寻 
8R7d1 妓 8742 持 3743 类 8744 奸 8745 旧 
8T746 娘 "8747 壤 8748 导 8749 长 8750 租 
8751 秦 8752 及 8753 影 .8754 莹 8755 沽 
8756 盐 8757 葵 8758 蓝 8759 加 8766 竹 
8761 报 8762 蓝 8763 蓝 -8764 温 8765 度 
8765 摩 8767 麻 8768 谍 8769 麻 8770 订 
8771 麻 8772 筑 89773 麻 8774 府 8775 内 


459 


460 


8778 凤 8779 对 8780 和 
8783 草 8784 监 8785 具 
8788 咒 5789 是 8790 纪 
8793 和 5794 黄 


恨 
和 
万 
蒋 
己 
如 
【1 
蒜 
还 
安 
和 


0017 
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